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The purpose of MICRO-80 is to publish software and other information to help you get the most from 
your TRS-80, System 80 or Video Genie and their peripherals. MICRO-80 is in no way connected with 
either the Tandy or Dick Smith organisations. 

** WE WILL PAY YOU TO PUBLISH YOUR PROGRAMS ** . 

Most of the information we publish is provided by our readers, to whom we pay royalties. An 

application form containing full details of how you can use your TRS-80 or System 80 to earn some 

extra income is included in every issue. 

** CONTENT ** 

Each month we publish at least one applications program in Level I BASIC, one in Level II BASIC and 

one in DISK BASIC (or disk compatible Level II). We also publish Utility programs in Level II 

BASIC and Machine Language. At least every second issue has an article on hardware modifications 

or a constructional article for a useful peripheral. In addition, we run articles on programming 

techniques both in Assembly Language and BASIC and we print letters to the Editor and new product 

reviews. 



** COPYRIGHT ** 

All the material published in this magazine 

it, except for your own use. 

programs on tape or disk. 



is under copyright. That means that you must not copy 
This applies to photocopying the magazine itself or making copies of 



** LIABILITY ** 

The programs and other articles in MICRO-80 



are published in good faith and we do our utmost to 
ensure that they function as described. However, no liability can be accepted for the failure of 
any program or other article to function satisfactorily or for any consequential damages arising 
from their use for any purpose whatsoever. 
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***** EDITORIAL ***** 

The change to double-width mode for our program listings last issue evinced a lot of response 
from readers, mostly negative. As a result, we have reverted to the previous format but with 
one significant difference. This month we have used the ever versatile EPSOM MX-80 in its empha- 
sised print mode, which reproduces much denser characters. We believe this should achieve our 
aim of legible listings which are easy to read. If you have any comments to make on this month's 
listings, please do not hesitate to write in. 

We are proud of the quality of the programs we publish in MICRO-80, not only because of their 
performance but because of the accuracy of the listings. Many readers have commented how they 
can always rely on our listings and have compared them favourably with many other magazines. 
This is no accident. Before a program is published, it has been thoroughly tested by the appro- 
priate Software Editor. In many cases the author is asked to make minor modifications and some- 
times the Software Editors themselves rewrite sections of the programs. It can take several 
months from the time a program is submitted until it is actually published. Once the programs 
for a particular issue are debugged, the master cassette is punched out, a backup copy on disk 
is made and the programs are LLISTed. For a long time this proved to be a pretty foolproof 
system. However, recently we have been disturbed to find a number of errors creeping into the 
listings and onto the cassettes. On investigation, we discovered that the increased incidence 
of errors coincided with a change in our process several issues ago. Then, in response to requests 
from finger-weary readers, we commenced renumbering all Level II programs to facilitate the 
use of AUTO entering. The renumbering was carried out after the original programs had been 
carefully checked out and just before the master cassette was punched. Apparently, during the 
renumbering process, spurious line numbers were occasionally generated after GOTO's etc. The 
obvious culprit, the renumbering routine, turned out to be an innocent victim of circumstances. 
The actual fault was eventually found to be a noisy expansion interface causing random changes 
in data held in memory. The fault has now been rectified and our listings should revert to 
their usual high standard. In the meantime, as errors are reported to us, we will correct them 
in MICRO-BUGS. One of the first programs to be affected was Mighty Mormar. In debugging this 
program, Charlie Bartlett made some improvements. We will publish the revised version of Mighty 
Mormar in a future issue. We apologise for inconvenience caused to our readers by this fault. 

On a much happier note, we are pleased to announce the appointment of Tony Edwards as our first 
U.K. correspondent and European Software Coordinator. Elsewhere in this issue, you will find 
Tony's first article in which he introduces himself and explains the procedure to be followed 
by our European readers when submitting programs for publication. You may also send articles 
for publication to Tony who will pass them on to Australia. Here at MICRO-80, we are committed 
to serving '80 users all over the world and we are sure that, with Tony's appointment, we will 
be able to improve the service to our U.K. and European readers still further. 

A less happy announcement is that Michael Svensdotter, our Level I Software Editor, has resigned 
due to lack of time occasioned by a change in employment. Michael is one of the most experienced 
Level I programmers we know and will be a loss to us all. We wish Michael well in his new job 
and look forward to the occasional contribution from him as time permits. 

Charlie Bartlett, our Level II Software Editor, who is also no mean hand at Level I programming, 
has assumed overall responsibility for editing of all MICRO-80 software. It so happens that 
our stocks of Level I software for publication are a little low so, if you have any programs 
you think we might like to publish, please send them in to Charlie. 

- 0000000000 - 
***** MICRO -BUGS ***** 

In which we correct those errors which seem to creep in, no matter how careful we are. 

FINANCE & REMOVING LINEAR BRACKETS - Issue 16 Pages 22 and 23. 

It finally happened. As we were assembling the magazine, we mixed up two listings. On page 
22, line 960 and all lines below it, should go at the base of page 23. The FINANCE program 
ends at line 930. REMOVING LINEAR BRACKETS ends at line 1220. 

VICTORY AT BATHURST - Issue 16 Pages 32 and 33. 
Page 32, Line 2930:- 

G0T0 8100 should be GOTO 2900 
Page 33, Line 3690:- 

G0T0 8985 should be GOTO 3760 
Page 33, Line 3890 should read:- 

3890 CLS:PRINT§330, "LAP 163 HAS BEEN COMPLETED!!!" 

- 0000000000 - 
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***** BETTER BASIC PROGRAMMING - by Rod Stevenson ***** 
** INTRODUCTION ** 

This is the first instalment of a proposed series which is intended as a companion to the now- 
expired U GT BASIC". 

It will be modelled on the same format used for similar talks to the Adelaide User's Group - 
the wide acceptance of which was the reason for your Esteemed Editor to request such a series. 
The writer is by no means an 'expert', so hopefully the phraseology will be acceptable to most; 
stimulating to the beginner, providing the seasoned computerist with some insights and points 
forgotten from earlier days. Unlike a lot of 'beginners' treatises, we do expect some knowledge. 
If you are convinced the instruction manual is too hard for you to discover how to LIST (yes, 
this is a real example from our experience), then this is not for you, . Because of the format 
we are using, we can only assume some knowledge on subjects not currently the one under review. 
An example: while dealing with strings we will mention arrays with no more explanation than 
needed for the case-in-point. However, when we come to the subject of arrays, we will cover 
all. Perhaps not all - the deeper complexities of some subjects will be the subject of a further 
composite article when we have led the self-confessed 'beginners' to realise that it is not 
all a mystery, and they can have confidence to pursue their own investigations of whatever takes 
their fancy! 

When allied thoughts occur, we will wander off (ramble?) the subject. 

In fact, we strongly emphasise the only path to true understanding is to put our words into 
practice. By so-doing, you will get a^eal feel' for the subject. Every one of the more exper- 
ienced users in the Adelaide Group has no reluctance in admitting this has been the way to success. 
Like the old story says, you only get out what you put in! 

Subjects we propose to treat: 

1 . Stri ngs 

2. Arrays 

3. Input checking 

4. Formatting output 

5. Machine language in BASIC 

6. Sound routines 

7. More advanced points of any of above 

8. Points requested by readers. 

The episode on machine language will be strictly-for-beginners - and this, of necessity, because 
your writer knows little enough. It, too, will follow the format established in the Adelaide 
Users' Group Newsletter. The aim is to show that machine language is not something to be put 
aside till later, or discarded as too hard. In fact, some things can only be done in machine 
language (e.g. modifications to the operating system); some things need machine language for 
speed. To whet your appetite : 

POKE 16396,151: POKE 16397,201 
The same effect will be accomplished by: 

POKE 16396,175: POKE 16397,201 
So too will: 

POKE 16396,23 

but we will tell you later why the former are better. Now that you have done this... we' 11 wait 

for you. ..we are sure you must agree with us that this machine language routine to disable BREAK 
was not hard. And that's the level we'll be staying at - but with full explanations.. .NO, this 
paragraph wasn't written by Eddy Paay! 

Except in a few instances, we will be catering solely for non-disk users. Most of what we say 
will apply to disk, but we will not be indulging in any disk-only items. The real reason for 
this is that the writer is without disk. But also, we assume that disk-people will have the 
knowledge necessary to extend our comments and routines to their particular cases. For those 
curious about DISK BASIC, we can recommend "LEVEL 3 BASIC" by Microsoft - though you'll probably 
need a real use to justify the price of $59.95. Not that the price is exhorbitant for the 5|K 
of extended BASIC provided. 

Those who wonder why we keep mentioning the Adelaide User's Group can satisfy their curiosity 
K X $5 " ewsle « er u su J«cription*. 60c. for some back issues, 28c. for current issue. Just send 
to tne address in the Groups' page. 

Above all, we are not writing for our own amusement. We demand feedback from readers. If you 
uT Ja Tn] ^1 JG ^ C ° vered ' you need only ask. If you don't approve of the format, tell 
us, and we 11 change if it's a general wish. If you have a better way, tell us so we can spread 

S U red« ^selves" " UnChaHtable thou 9 hts until ^' ve at ^«t given uf the cKance 
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** STRINGS ** 
WHAT IS ONE 

A string consists of characters contained within quotes. It can allegedly be up to 255 characters 
long, but unless you have a definite need, don't. While on that subject, we suggest not having 
long and involved program lines - if you do want to conserve space, write your program normally 
with reasonable length lines, then use a program such as "PACKER" to compress it to approximately 
80% of its former length. 

QUOTES 

We must admit there is room for confusion as to whether a string needs to be enclosed in quotes. 
The rule is, if in doubt, do. When assigning a variable there must always be quotes - as A$ 
= "QUOTES". However, as an input or a data item, quotes are needed only if there's a delimiter 
(colon, comma, leading blank) in the string. 

We know most times you can get away with leaving off closing quotes. But we suggest you don't, 
as herein lies a multitude of traps for the unwary. The most obvious one is the loss of control 
of line-feed, which may not show up till later in the program. Then too there's the subtle 
horrific trap which happens with RENUMBER or PACKER. Yes, we know the experienced will scoff 
at our caution, but you've been warned. 

While thinking of laziness, we're moved to implore you not to leave THEN out of IF THEN, 

or to use its alleged abbreviation of a comma. This will also cause problems which may not 
immediately reveal themselves such as with ELSE, GOSUB, and with utility programs, we know 
it's easy enough to think "it won't happen to me"; when it does, you won't be the first to have 
had the same thought. 

DEFINING 

Strings need space in which to work. The CLEAR statement is used to clear an area in memory 
solely for this purpose. Generally, you should clear the length of strings plus double the 
length of the longest one. CLEAR will also re-initialise any variables assigned, destroy DIM 
& DEF statements and generally do as its name suggests and CLEAR a lot of things you probably 
didn't want cleared. 

So use CLEAR as one of the first things at the start of your program. If you don't CLEAR, BASIC 
will allocate 50. 

Having CLEARed, you can now DEFine variables as strings, to save having to put $ after the variable 
every time it's used. However, the trap is that every variable starting with that name will 
be a string, e.g. if DEFSTRA, A will become a string variable, but so too will Al , AQ, A2. 
Actually the writer doesn't generally use the DEFSTR because of the real likelihood of forgetting 
it's been done. 

And thinking of variables - we suggest using meaningful names. It costs nothing and could save 
a degree of mental exertion at a later date (next day?). We also suggest looking in the manual 
for the explanation of defining variables as integer, double precision, single precision. We 
don't propose to go into it at all but, of course, if there's an overwhelming demand from readers... 

Again, the writer doesn't use a global DEF I NT for fear of forgetting having done so. 

It is still necessary to DIM string arrays over 10, but as arrays are the proposed subject of 
the next instalment, we'll not get side-tracked here. 

OPERATORS 

Arithmetic operators apply to strings, but only += <>. One could hardly expect to be able to 
cube a string! 

There are times, though, when it would be handy to be able to subtract a letter from a string 
and one can't just use - (minus). While this subject will be enlarged upon in the episode on 
input checking, briefly, the method is: 

I $ = LEFT$ (1$, LEN (1$) - 1) 

Similar manipulations can be applied to search for particular letters, etc. The comparison 
for = proceed from left to right until a mis-match is found. The ASCII characters are compared 
one by one, so by consulting a table of ASCII values, one can determine what BASIC will consider 
is ^or = to what. 

The plus sign will simply add (called concatenate) two strings to make a string equal to the 

sum of the length of the former separate strings. It will not add in the arithmetic sense, 

which is why it is called concatenating, e.g. A$ = "WER": B$ = "ASD": C$ = A$ + B$ will give 

C$ = "WERASD". 

The plus sign can also be used to print strings, without concatenating them previously, e.g. 

PRINT A$ + B$, will give the same result as PRINT A$; B$. 
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FUNCTIONS 

This whole list can be found in the Manual. The only reason for including it here is to avoid 
multitudes of incensed readers complaining that it has been left out. 

ASC (A$) returns decimal ASCII value of first character of A$; useful for determining 

the ASCII value without having to look up a table, such as shift characters, 1 , etc. 
can be as PRINT ASC {"!"). 

CHR$ (X) returns the character which is represented by the ASCII value X; useful for 
printing a normally unprintable character which would otherwise be a delimiter in a 
string, such as quotes, e.g. 

PR$ = "ASD" + CHR$ (34) + "OWE" + CHR$ (34) will assign PR$ to be 

ASD "OWE", which would not otherwise be possible. (Opposite of ASC (A$) 



FRE(A$)-will show how much string space (allocated by CLEAR) is left. 
The A$ is a duniny variable and does not mean the space has beei 



space has been allocated to A$. 

LEN(A$) gives the length (number of characters) in A$ and is vital in manipulations and 
testing string input. 

STR$(A) converts the numeric value of a variable A to a string variable. This allows it 
to be worked on (in a non-numeric sense) by the string manipulator functions. E.g., to 
reverse a number represented by I 

1$ = STR$(I) 

Then 1$ = MID$(I$,3,1) + MID$(I$,2,1) + MID$(I$,1 ,1 ) . It inserts a space before the number 
which is normally present in a numeric variable to allow for a + or a - sign. 

VAL(A$) converts a string number to a numeric value so it can be worked on arithmetically. 
If there are alpha characters in the string only the preceding numbers will be recognised. 
Returns a double precision value. VAL and $TR$ perform complimentary functions. They are 
important as they make strings the most powerful and useful functions in our version of 
BASIC. 

NOTE: ASC(A$) and VAL(A$) are not the same. STRINGS (n,c) gives a string of length n, composed 
of characters "c". It is usefuTTor quickly printing strings. C can be an ASCII value or any 
character enclosed by quotes. STRINGS need not be assigned to a variable; you can PRINT STRINGS 
(n,c) for formatted output. 

A$ (n,m) is a string function in other BASICs which should be understood to be able to 
convert programs written in other than Microsoft BASIC. Although it appears to be a 
two dimensional string, it is actually a substring of A$, commencing at character 
n from the start, ending at character m from start. 

LEFT$(A$,m) gives a substring of A$, starting at the left, and of m characters in 
length. Particularly useful in getting input such as YES/NO, which may be input as 
Y/N. E.g. If LEFT$(A$,1)X"Y" THEN... 

RIGHT$(A$,n) gives a substring of A$, starting n characters from the left and con- 
taining all the remaining characters in A$. It can be used after STR$ to get rid of 
the unwanted space that was present in the numeric variable. It can also be used to 
ensure that the expected number of characters has been input by the operator. More 
of this in the instalment concerning checking input, but briefly, if entering a date, 
to allow for either single or double digit entry, i.e. 06 or 6, use: 

1$ = "0" + 1$ : 1$ = RIGHTS (I$,2) 

RIGHTS is also useful for picking the postcode from an address, for sorting, etc. 

MID$(A$,n,m) returns a substring of A$, starting n characters from left, of m charac- 
ters in length. This is probably the most useful of the manipulation functions. 
It allows you to pick off part of a string and match it against another. The Disk 
BASIC function of INSTRING can be simulated. However, its real value lies in input 
checking. Some (your author included) use strings instead of arrays, and it is 
MID$ which allows this. More about this in the more advanced instalment. 

STRING PACKING 

We thought this deserved a mention here, although it is more advanced than the rest of this 
instalment. The idea is use a string as somewhere to keep data of various types. Just as PRINT 
STRINGS (64,65) will print a line of A's very quickly, so can other quite complex characters 
be printed remarkably quickly. Although not as quickly as would machine language, which is 
another use for string packing - to have somewhere to keep a machine language routine without 
needing to protect memory or other complex manoeuvres. More of this aspect in the machine lanquaqe 
episode. 
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A string can be used as a simple storage location for pieces of data of varying lengths, simply 
by separating the pieces by some known delimiter (such as CHR$(128)), then using the MID$ function 
to retrieve the pieces between the delimiters. 

Incidentally, we have no idea as to why it is called string packing - there's nothing mysterious 
at all involved. 

INKEY $ 

This is a very powerful function for getting input without having to press ENTER. It is a routine 
which scans the keyboard to detect whether a key has been pressed. Since it is so fast, it 
is necessary to create a loop to use INKEY$ effectively. E.g: 

100 A$ = INKEY$: 1FA$ = ""THEN100 

which will wait until a key is pressed (any key) before going on to the following program code. 
As one might expect, the greatest benefit is in checking input, and rejecting it unless it is 
within the expected range. This will be covered later. 

However, one aspect which can cause confusion, whatever the reason for using INKEY$, is that 
the function itself does not retain the value of the key that was pressed. To retain the value 
a variable must be assigned, and re-assigned within the loop every time . Without a variable, 
the program will still wait for a key-press, but you will not be able to use it for an input. 
The INKEY$ is cleared each time it is accessed, so with a little thought it will become clearer. 
It is like a flag which is set/reset on passing. We must admit there is room for confusion, 
so we urge experimentation, as in all things. 

The input from INKEY$ is not usually displayed, but this is just a simple matter of using PRINT 
A$. However, the by-product of this is the use of INKEY$ for a password input, where you do 
not want observers to observe the secrets. Similar to N0ECH0 in other versions of BASIC. INKEY$ 
can also be used to create a timed input. This facility is also available in disk-BASIC, as 
a real time function of the clock. However, in Level 2 it can be easily created by trial -and- 
error to give the desired time period. Such a routine would be as a subroutine: 

100 FOR I = 1 to 1000 

200 1$ = INKEY$ 

300 IF 1$ = ""THENNEXTiPRINT'-TIME UP":ST0P 

400 I = 1000 : NEXT 

Rest of program would follow. The closing of the FOR NEXT loop in line 400 is of doubtful 

and debatable significance, and has been the subject of 4 articles that we have read - more 
information in back copies of Adelaide Users' News. However, it does no harm, even if the times 
when it is needed are few. So we follow our earlier-expressed maxim, "when in doubt, do". 

Just because the INKEY$ function returns only a one character input, doesn't mean its use is 
at all limited to this. The string concatenation function can be used: 

100 11$ = INKEY$: IF 11$ = ,M, THEN100ELSEPRINTI1$; 

200 12$ = INKEY$: IF 12$ = ""THEN200ELSEPRINTI2$; 

300 13$ = INKEY$: IF 13$ = ""THEN300ELSEPRINTI3$; 

400 1$ = 11$ + 12$ + 13$ 

Of course, between these lines could be a timing loop, check for input, etc., and although this 
routine would, by its nature, give the right length input, it would be aborted by (accidental) 
press of the BREAK key. For this reason we have written a routine to provide the disk function 
of LINE INPUT, which we will present later in its proper and expected place. 

If, like us, you have children who just like to practice their typing on the screen, you can 
create a mini -word-processor with shift arrow capabilities by: 10 A$ = INKEY$: PRINT A$;:G0TO10 

CONCLUSION 

As a final word, we must implore that input checking is of the most vital significance; while 
you'll have to wait at least 2 issues for the relevant instalment, in the meantime, we suggest 

you use string variables for all input, check it by FOR NEXT and MID$, and convert it if 

necessary to a numeric variabl eHby VAL. We would have liked to say more on the subject here, 
as we've found it's the single major factor for programs to bomb out, but we have already used 
more space than your Esteemed Editor has allocated us. 

Next episode will be on arrays. Before you have time to tremble in terror, let us point out 
that your telephone book is an array. So is a map, a crossword puzzle; in fact, any groups 
of information. Even multi -storey buildings. 

- 0000000000 - 
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***** PEEKing (UK) by our U.K. Correspondent Tony Fraser ***** 

In this first of a number of articles I am going to introduce myself as the UK Correspondent. 
Although an engineer and physicist by profession, I have studied computing at post-graduate 
level and in my work I do some programming for mainframe machines. My main interest in computing 
these days is, however, my personal home computer which is used as a hobby machine, running 
progranmes for geneology (another of my hobbies), post-graduate research and the usual crop 
of computer games. My children are usually the games players, but Dad enjoys them too. I also 
have a special interest in the programming of graphics displays which I enjoy as a challenge. 
My machine is a "Video Genie" (recognised in Australia as a "System 80"). It is modified to 
include a cassette level meter and the '"*' and '4-' keys, and I have fitted an external connection 
to #1 cassette output port for music (noise) output. My output device is a domestic TV, but 
the next piece of equipment on my list is a printer. 

I see my place in this magazine as providing any assistance or service to both UK and other 
readers which can be more conveniently provided by a UK resident. This will be done by writing 
regularly on the '80 scene as viewed from the UK, and by providing a contact point in the UK 
for readers anywhere in the world who may need UK-based contacts. If I can be of any help, simply 
write to me at the address below. One major task I have agreed to take on is that of providing 
a postbox for progranmes by European readers submitted for publication in MICRO-80. These should 
now be sent to me for preliminary vetting and copying onto a single cassette "to be posted to 
the editorial staff in Australia for selection for publication. Your original cassettes will 
then be returned. For those who have not purchased back copies {why not?) and thus may not 
be entirely clear as to the form of submitting programs, I will give brief details. Programs 
should be submitted on cassette only (listings are not necessary and listings only are not accep- 
table). Your covering letter should contain all the information necessary for the running of 
the program and your address. Your name and address should also appear on the program as a 
REM statement. Ideally, the only information which should be necessary to run the program is 
the language, i.e. machine code, BASIC, or TINY PASCAL and Level I or II. Level I programs 
should be written so as to be compatible with both the TRS-80 and the Video Genie units. We 
have received very few programs from our UK readers to date, perhaps due to postage difficulties, 
but now you have no excuse, so get them rolling in. Remember, you get not only fame and immor- 
tality in print, but you also get paid for any published programs. 

Finally, if you think I could be of any help to you, or you see a useful service I could provide 
to the readership in general, drop me a line and let me know. My address is: 

Tony Edwards, 23 Foxfield Close, Northwood, Middx, United Kingdom. 

- 0000000000 - 

***** INSTALLERS FOR LOWER CASE MOD. KITS ***** 

MICRO-80 is seeking experienced technicians or hobbyists in each State, to instal lower case 
mod. kits for our readers. We will publish the names and addresses of installers each month. 
Individual readers should negotiate directly with the installers in their States. Although 
we will only publish the names of installers with adequate credentials (on paper), we can take 
no responsibility for the standard of service or workmanship offered. We ask individual readers 
to inform us of their experiences, good or bad, with the installers on our list and we will 
take appropriate action amend the list, as necessary. 

VICTORIA : Keith Pakenham, 20 Nicholas St. Teesborough, 3173. (03) 798 6162. 

Philip Shufflebotham, 1 Perceval St. Sunbury, 3429. (03) 744 3096. 

NEW SOUTH WALES : Allan Mason, 38 Dresden Ave. Castle Hill, 2154. (02) 680 2538. 

Mr. J. Saxon, 2 Maul don St. Chi f ley, ACT. 2606. 
WESTERN AUSTRALIA : Andrew Smallridge, 22 Ravenhill Drive, Thornlie, 6108. 

- 0000000000 - 

********** SOFTWARE SECTION ********** 

***** ARITHMETIC L1/4K by C. Stobert ***** 

Whilst not strictly a teaching program, this program will provide useful practice at addition, 
subtraction and multiplication for 8-10 year old children. First, you are given the choice 
of operation to be performed and then you are presented with 10 problems, one at a time. You 
must obtain the correct answer before moving on to the next problem. After the set of 10 problems 
is completed, your score is displayed and the program offers you the opportunity to start again. 
The problems are randomly generated so that each pass will be different from the last. 

1 REM C. STOBERT 

2 REM 21 SHERWOOD CRS. 

3 REM NTH. DANDENONS VIC. 3175 

4 REM 03 795 6590 
10 C. 

20 P. * P. "THIS PROGRAMME IS TO ASSIST YOU 
30 P. "WITH YOUR ARITHMETIC. 
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40 P.s P. "DO YOU REQUIRE INSTRUCTIONS ? 

50 Y=lsN=0 si." ENTER <Y> FOR YES OR <N> FOR NO"sO 

60 IFQ=0C.:G.2OO 

70 C. sP. a P." YOU DO YOUR PROBLEMS IN THE NORMAL WAY. 

BO P. "WORKING FROM RIGHT TO LEFT, 

90 P. "ENTERING EACH PART OF THE ANSWER IN TURN. 

100 P. "FOR EXAMPLE, IN THE FOLLOWING PROBLEM a~ 

110 P.T. (20), "1 2 3 

120 P.T. (22), "9 7 + 

130 P.T. (20)," 

140 P.T. (21),"? O 

150 P.T. (20) , "===== 

160 P. "YOU WOULD ENTER 2 IN THE TENS COLUMN 

170 P. "THEN CARRY 1 TO THE HUNDREDS COLUMN. 

180 GOS.960iC. sP. sP. " GOOD LUCK ! !":P. sP. 

20O I. "WHO IS TAKING THE TEST "5 A* 

210 P.sP."WHICH DO YOU WANT (1, 2 OR 3) ? 

220 P."ADDITION (+)<1> 

225 P. "SUBTRACTION (-)<2> 

230 I. "MULTIPLICATION (X)-<3> ";Z 

240 Z=I. (Z)sIF(Z<l)+(Z>3)C.sG.210 

250 GOS.970 

280 T=0:R=1 

300 IFZ=1D=R. (499) 

400 IFZ=2D=R. (499) +500 

500 IFZ~3D=R. (Ill) 

510 E=I. (D/100)iF=I. ( (D-E*100)/10) 

520 G=D-10Q»E-10*F 

530 IF(Z=1)+(Z=2)H=R. (499) 

540 IFZ=3H=R. (9) 

550 1=1. (H/100) :J=I. ( (H-I*100> /10) 

560 K=H-100*I-lO*J 

570 C.:P.AT76,"N0W "sA* 

580 P.AT146,:G0S.800 

590 A=OsB=0:C=0 

600 IFE>0P.AT2B5,E 

610 IF(F>0)+(E>0)P.AT287,F 

620 P.AT289,G: IFI >0P. AT349, I 

630 IF(J>0)+(I>0)P.AT351,J 

640 P.AT353,K;" ";B* 

650 F.Y=414T041BsP.ATY,"-"sN.Y 

660 F.Y=542T0546:P.ATY,"=":N.Y 

670 P.AT481, sI.AiG0S.2020 

68O P.AT479, s I . Bs GOS. 2010s GOS. 900s IFL< 10OG.70O 

690 P.AT477,sI.CsG0S.2000 

700 T=T+lsGOS.930sIFL=MP.AT720,:80S.850sX=l:G.720 
710 P.AT720,"SORRY ":A*s" TRY A6AIN":X=0 

720 G0S.960s IFX=1R=R+1: IFRM06. 1000 

730 IFX=1C.:G.300 

740 G.570 

800 Y=R. (3)s0NYG.810,820,830 

810 P. "SEE HOW YOU DO": RET. 

820 P. "HAVE A TRY AT THIS"sRET. 

830 P. "NEXT PROBLEM": RET. 

850 Y=R . ( 3 ) : ON YG . 86O , 870 , 88O 

860 P. "WELL DONE ";A*sRET. 

870 P. "KEEP UP THE GOOD WORK ";A*sRET. 

880 P. "GOOD EFFORT ";A*sRET. 

900 IFZ=1L=D+H:RET. 

910 IFZ=2L=D-HsRET. 

920 IFZ=3L=D*H:RET. 

930 M=A+10*B+100*CsRET. 

960 P.AT896,:I."PRESS < ENTER > TO CONTINUE " ; B* 

970 IF Z=1B*="+":RET. 

980 IFZ=2B*="-"sRET. 

990 IFZ=3B*="X"sRET. 

995 RET. 

10OO C. :P. sP."THAT IS 10 PROBLEMS ";A* 

1010 P.: P. "YOU HAD" ;T; "TRIES 

1020 P. "WHICH GAVE YOU A MARK OF"; 

1030 P. (l-(T-10)/10)*100s"7. 

1040 P.sP. "IF YOU WOULD LIKE TO TRY AGAIN ENTER <1> 

1050 I -"IF NOT ENTER <2> ";0 

1060 C.sIF0=lG.210 

1070 P. "NOW ";sG.200 

2000 P.AT477,C 
2010 P.AT479,B 
2020 P.AT481,A 
2030 RET. 
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***** 



SORTING L1/4K by Hubb Sanders 



This is the first program we have published from a reader in Holland. Thank you very much 
Hubb. The program demonstrates the action of a "bubble-sort" routine. The objective is to 
?[ rar l? e w a r ° W ° f numbers in order with the lowest to the left and the highest to the right 
The bubble sort routine achieves this by comparing successive pairs of numbers, starting from 
the left. If the first number is lower than its neighbour, then their relative positions remain 
undisturbed and the sort routine passes on. However, if the first number is higher than its 
neighbour, then the positions of the two numbers are reversed before the sort routine passes 
on. A pass is completed when each pair has been sorted once. Consider the reconstruction of 
a screen display for four numbers to be sorted, shown below. 

ENTER 4 3 2 1 

Program now displays, one line at a time: 

PASS 1 SORT 1 3 4 2 1 

PASS 1 SORT 2 3 2 4 1 

PASS 1 SORT 3 3 2 14 

PASS 2 SORT 1 2 3 14 

PASS 2 SORT 2 2 13 4 

PASS 3 SORT 1 12 3 4 

DONE 

ONCE MORE (1 = YES 2 = NO)? 

In PASS 1 SORT 1, the first two digits are interchanged because 4 {the left -most) is higher 
than 3. In PASS 1 SORT 2 (the second pair) the 4 and 2 are interchanged, and so on. 

The name bubble-sort is derived from the way the numbers move. If you imagine that the sorting 
is carried out on a vertical column of numbers with each pass starting at the top, then the 
low numbers will move gradually up the column, rather like air bubbles in a fish tank. 

The program commences by requesting the total number of inputs. From 8 to 12 inputs are most 
useful for demonstrating the sort routine - Lines 125 and 546 introduce deliberate delays to 
enable you to follow the progress of the program. If you would like to see how fast the proqram 
can function, delete both these lines. 

5 C. :P.AT460,"HUBB SANDERS 

6 P.AT524, "LUTTERSWE6 36 

7 P.AT588,"7782 TA DE KRIM 

8 P. AT652, "NETHERLANDS 

9 F.B=lTO100O:N.B 

10 C. 

15 P.AT409,"SORT DEMONSTRATION 

16 F.Z=1T01500:N.Z 

20 C.sP."THIS PROGRAM ALLOWS YOU TO INPUT A CERT I AN AMOUNT 

21 P.: P. "OF NUMBERS AFTER WHICH THE COMPUTER WILL START SORTING. 

22 P.; P. "WHEN EVER A NUMBER IS MOVED THE PASS WILL BE DISPLAYED. 

23 P.:P. "TO FREEZE THE DISPLAY HOLD DOWN THE <~> KEY 

24 P-AT860, "HIT < ENTER > TO START" ;: I .A* 
30 C. 

35 P.AT64,"HDW MANY NUMBERS DO YOU WISH TO INPUT";: I. Q 

36 IFQ<2P."IT'S NOT EASY TO SORT THAT MANY".-G.35 
40 C. sF.K=lTOQ 

45 P.AT450, "INPUT NUMBER"; K; : I . A <K> : C. 

50 F.Z=lT0K-lsIFA<Z>OA<K>N.Z 

55 IFZ=KG.70 

60 P. "YOU'VE ALREADY ENTERED" ; A <K> s6.45 

70 N.K 

BO F.K=lTOQ-l:F.L=lTOQ-l 

90 IFA(LXA<L+1)G. 120 

1O0 P=A(L)sA(L)=A<L+l) :A(L+1)=P 

110 60S. 500 

120 N.L 

125 F.Z=1T0500:N.Z 

130 N.K 

135 P. s P. T. (30), "DONE 

136 P.T. <20),"0NCE MORE <1=YES 2=NO)";:I.R 

137 IFR=1G.30 

138 END 

500 P."PASS";K;" SORT";L;~ "; 

510 F.X=1T0Q 

520 P.T. (5),A<X); 

530 N. X 

540 P. 

545 X=X+Q 

546 F.Z=lT.250sN.Z 
550 RET. 
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***** NORMAL DISTRIBUTION LII/16K (c) T.R. Jones ***** 

LOADING INSTRUCTIONS. 

To load the program from cassette, answer MEMORY SIZE? (READY?) by pressing ENTER/NEWLINE. 
Then type CL0AD H N" and press ENTER/NEWLINE. When the program has loaded type RUN and press 
ENTER/NEWLINE. 

INTRODUCTION. 

This month sees the start of a series of scientific programs written by an author working in 
a scientific field. This first one is one of the most basic, yet one of the most important 
and widely used of statistical tools. Many statistical procedures begin with the assumption 
that data under study approximates this distribution. The normal distribution is such that 
if one were to plot frequency per class against a range of classes for a given set of observations, 
e.g. (butterfat production per cow for a dairy herd), then the resulting curve would be approxi- 
mately bell shaped, having a high point near the middle representing the most common class, 
sloping off rather symmetrically on either side to the rare exceptional classes on either end. 
From such a distribution, a series of useful statistical parameters arise. This program will 
compute these parameters, known as the mean, variance, standard deviation, standard error and 
the range. The program will accept up to 100 data values for analysis. Following entry of 
data, values are displayed for verification and an option to edit entries is given. Having 
entered all the data correctly, the parameters described are computed and displayed on the screen. 
Here is a brief definition of the parameters. 

1. MEAN - mathematical or arithmetic average of the data set. 

2. VARIANCE/STANDARD DEVIATION - two ways by which the variability of data about the mean is 
described. 

3. STANDARD ERROR - an estimate of the variability of the mean of the data set from the mean 

of the population from which the data was drawn. 

4. RANGE - is simply the lowest and highest values between which all the data occur. 
Simply respond to the program prompts for each type of input. 



10 'ROUTINE TO CALCULATE STASTICS IN RELATION TO THE NORMAL DISTRIBUTION. 

20 * <C) COPYRIGHT 1980, TERRY JONES, 43 HASTIE STREET TATURA, 3616. 

60 CLS:DEFINTI-N:DIMX<100) ,F(10) 

70 PRINTTABU8) "NORMAL DISTRIBUTION ANALYSIS": 

PRINTTAB (18) STRING* (28, 45) 
80 PRINT: PRINT: PRINTTAB (26) "ENTER DATA" : PRINT :PRINTTAB ( 13) 

"NUMBER OF DATA POINTS - MAXIMUM IS 10O" 
90 PRINTTAB < 28) "*"5 s INPUTND: IFND<20RND>100 

PRINTCHR*(27) ;CHR*(30) ; CHR* (29) ; CHR* (27) s GOT090 
100 PRINTjF0RI=lT0ND:PRINTTAB(27)"X("; I; ") = "; : INPUTX ( I ) :NEXTI 
110 CLS s K=0 : PR I NTTAB ( 25 ) " DATA ENTERED " : FOR 1 = 1 TOND : K=K+ 1 s 

PRINTTAB (26) "X<"; I; ") =";X<I) s 

I FK< 1 ONE X T I ELSEPR I NT3977 , " TYPE < ENTER > TO CONT I NUE . . . " ; ! 

INPUTI*:K=0:CLS:NEXTI 
120 PRINTa)983,"EDIT DATA (Y/N)"; 
130 I*=INKEY*: IFI*=""THEN130ELSEIFI*=' , Y"THEN140ELSEIFI*= ,, N" 

THEN150ELSE130 
140 CLS s INPUT "DAT A POINT TO BE EDITED"; I: 

IFI >NDTHEN140ELSEPRINT"X ( " ; I ; " ) =" ; X < I ) : 

PRINTTAB (32) CHR* (27) ; "NEW X(";I; M ) ="; s INPUTX (I) : 

GOTO! 10 
150 CLS: PRINT3473, "COMPUTING ...." 
160 X1=0:X2=0:F0RI=1T0ND:X1-X1+X(I) :X2=X2+(X(I) C2)sNEXTIs 

X3=X 1 /ND: X4=X2- ( X 1 C2/ND) : X5=X4/ (ND-1 ) s X6=SQR (X5) : X7=X5/ND 
170 Rl=X(l):R2=X(l)sF0RI=lT0ND:IFX(IXRlTHENRl=X(I):NEXTI 

ELSEIFX ( I ) >R2THENR2=X ( I ) sNEXTIELSENEXTI 
180 CLS: PRINT: PRINT"MEAN =";X3s PRINT: 

PR I NT "VARIANCE =";X5:PRINT: 

PR I NT "STANDARD DEVIATION =";X6:PRINTs 

PR I NT "STANDARD ERROR =";X7: PRINT: 

PRINT"RANGE =";R1 ; "TO" ;R2: PRINT 
190 END 
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***** DISASSEMBLER LII/16K (c) Gregg Nott ***** 

LOADING INSTRUCTIONS. 

K*!? 1 ?* P ^ 9 ? m ! S i >ein i™ yped in frora the m *V™™> type it in * EXACTLY * as listed and 

SIZE' READY ? f a w e /t W h Wm^a ^ ^JrV/ c When l0ddin9 the pr0 9 raJT1 from ta P e answer MEMORY 
yhfntho ' w i , , and preSS ENTER / NEU LINE then type CL0AD"D" and press ENTER/NEWLINE 

When the program has loaded type RUN and press ENTER/NEWLINE. tniM/ntm-int. 

7ftJ E in,^t^ USi " 9 thiS pro * r ™ if _, the address applied by you is not the first byte of a valid 
Z80 instruction or is an area where data is stored, an error message will be given. 

INTRODUCTION. 

Thl'n^l? 5 !? 1 ^- 0Utpu J? s * andard Z " 80 mnemonics from any block of machine code in memory 

^SSm fnrTll^nn 2£ Gnt l re - 80 instruction set > *•«• P«v1de the appropriate mnelnic 
representation for all 700 odd instructions. The program leaves approximately 6K bvtes of hioh 

ri 1 ^^.? 51 ^ m3Chin ? lan J> uage progr ^ t0 be d isassembled, can reside! Natura ly 
surtina address in trills ""r *t° be d1sa «embled. The program commences by asking for a 
di h ?L a ' Fourteen llnes » representing one instruction per line, are then 

d h \ e ll de ° scr f n ; The current address in hexidecimal is printed on the far left 
till dat* i a Iaa ^ contents appropriate for the instruction. A feature of the program is 
t1 d A ,1 addresses associated with instructions are displayed with the mnemonics (including 

of the e di J sX to^'in t n he add , Ui r, AS( ; 11 cha ; acters (Otters) are printed on the far right 
or tne display to aid m the identification of messages DEFM) etc. When the ENTER/NEWLINE 

^pres^rthe^EA^; 5 *"*« "" ^^ ™ 11ni « ^^ ^ ™™ i^teSted 

REM lines have been placed in the program in order to identify subroutines and to facilitate 

(Xn^^Sril^ wVthT 7 nnn i0n - ,k REM " n f S S n hould be re " wi if -^ «ry \s re u rS 
ine 50 should hP tvnld /n °LY\ th " T^' ° nG Wrd ° f Caution ' 7ines U P to and including 
havp thoiJ J be typed in exactly as shown. Lines 20 and 50 contain G0SUB statements which 

vou all wHtfTn men thi 1 . ine . nUmber , , -, Chan9ed aS ever * instruction is disassembled (ED: before 

uroJll and whln'tho S ^ WG dldn * renUmbei : th1s pr °9 ram as U P0KEs that are of the BASIC 
program and when the program was renumbered, (yes we tried), it POKEd itself into the middle 

storaoe area KJjT]™ T^S**^ COrTeCt line number and P0KEs the «*"« into the program 
^1™**^?*^^°" t0ken ' ™* eXplai " S tbe G ° S »* ™ statements' found 

progS S6t the MEM ° RY SIZE t0 eUhGr ° f the f0ll0 -"9 -lues to protect your high memory m/1 

With REM lines in place (as listed) set to - 27740 
With REM lines removed set to - 27000 

ssni-.- far sZrc fJSEK-K' «-™ «rs. ,?„r'r: 

the self modifying routine allows S a ™ of CoVr '/Th^' ^ line nUmber - In effect > 

^ a,* 5 i STiv~'^ s-^fiMSr. Emss; 
pus sr.,v « rSrx sjr ,b ;^s?? ir»™ — 

is set by every line that i«= hr^L V« ♦ variable L, the length of instruction indicator, 
Upon branclfingf Jnr^opHate""^ 1^™?%^ 23 S aVLe" To ^^"T 

?~r „VnTt^^^ 

L) and a call is nade to a subrout'oe thatT^iNTs the ll^/J™^ U '"P™-**" liable 
(lines 10000-10010). at PRINTs the "^hine codes representing the instruction 

P^!^ conditional exits from the primary 
that cogence with a CB,DD,ED and ?D b yte value TV and fV^+VT^ 'V" 80 inst ™ ct ions 

self modifying loop that branches frnm l-inl K n S™ D 1n structions all use a secondary 

of simple algorithms (line ^10020-1022?) ?Hp°' £??* J? lnst ^ctions are handled by a number 

byte in the instruction to process ^'the - correct brS^fin^n*^ "5^ *£* ° f the SEC0ND 
50 (certain . DC I and FD 4 byte' Indexed iLructTons EEK at%he LAST^yTe ^f^rh^ 5 " 8 t" I?™ 

in order to differentiate between instructions). Y ° f the instr «ction 
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SUBROUTINES, SIGNIFICANT VARIABLES AND PROGRAM BLOCKS. 

PROGRAM LINES SUBROUTINES 

2119 - 2130 CALCULATES BRANCHING LINE NUMBER. 

2150 POKES LINE NUMBER INTO PROGRAM. 

3000 - 3010 PRINTS CURRENT ADDRESS IN HEX. 

4000 - 4700 4 SUBROUTINES FOR PRINTING DATA OR ADDRESS ASSOCIATED WITH INSTRUCTIONS. 

5000 - 5120 DECIMAL TO HEXADECIMAL CONVERSION. 

5200 - 5230 CALCULATING & PRINTING DISPLACEMENT VALUES. 

10000 - 10010 PRINT MEMORY ASSOCIATED WITH INSTRUCTION. 

10012 - 11100 PEEK AT 2ND BYTE OF DD/ED/FD INSTRUCTIONS. ra/ftn(rn/cn 

120 00 - ERROR TRAPPING ROUTINE FOR DETECTING UL ERRORS RESULTING FROM CB/DD/ED/FD 

DATA VALUES. 

MAJOR VARIABLES. 

Z PEEKed memory address 

A Decimal value of variable Z {memory content) 

L Length of instruction indicator 

K Video display line counter 

C$ Output from dec-hex conversion 

E Input to Dec-hex conversion 

M Pointer to program storage area where line number will be POKEd (Y1/Y2/Y3/Y4) 

Y$ Variable A converted to GOSUB line number. 

MAJOR PROGRAM BLOCKS/POINTS 

1000 - 1510 PRIMARY LOOP PRINT LINES 

2005 STARTING POINT OF PRIMARY LOOP 

1442 - SETUP DD INSTRUCTION SECONDARY LOOP 

1506 - SETUP FD INSTRUCTION SECONDARY LOOP 

8000 - 8010 SETUP ED INSTRUCTION SECONDARY LOOP 

6064 - 6187 ED INSTRUCTION PRINT LINES 

7009 - 7249 DD AND FD INSTRUCTION PRINT LINES 

10020 - 10220 CB INSTRUCTION PROCESSING 



10 CLEAR lOOsCLS 

15 DEFINTA-Z:L=OsK=OsGOSUB2000 

18 80T02005 

20 GOSUBXXXX 

25 IFA>62ANDA<194TNENL=1 

30 GOSUB 1 OOOO s Z=Z+L s GOTD2O05 

50 GOSUBXXXX 

60 RETURN 

100 REM ** ZBO DISASSEMBLER BY GREG NOTT 20/2/80 »* 

1OO0 L=l a PRINT"NOP":s RETURN 

1002 L=3sPRINT"LD BC ,"; s 60SUB4500 i RETURN 

1004 L=lsPRINT"LD (BO , A"; s RETURN 

1006 L=l SPRINT" INC BC";: RETURN 

1008 L=l SPRINT" INC B"; s RETURN 

1010 L=lsPRINT"DEC B**?s RETURN 

1012 L=2sPRINT"LD B, "; : G0SUB4000s RETURN 

1014 L=lsPRINT"RLC A" ;s RETURN 

1016 L=l!PRINT-EX AF, AF* " ; sRETURN 

1018 L=lsPRINT"ADD HL, BC" s s RETURN 

1020 L=1:PRINT"LD A, (BC) "sa RETURN 

1022 L=ls PRINT-DEC BC"::RETURN 

1024 L=l SPRINT" INC C";s RETURN 

1026 L=lsPRINT"DEC C":sRETURN 

1028 L=2:PRINT"LD C, ";: G0SUB400OS RETURN 

1030 L=lsPRINT"RRC A" ;s RETURN 

1032 L=2sPRINT"DJ NZ " ; : G0T05200 

1034 L=3sPRINT"LD DE , " ; s G0SUB4500 s RETURN 

1036 L=lsPRINT"LD (DE) , A" 5 s RETURN 

1038 L=l SPRINT" INC DE";sRETURN 

1040 L=l SPRINT" INC D";: RETURN 

1042 L=lsPRINT"DEC D";: RETURN 

1044 L=2sPRINT"LD D, ";s G0SUB4OO0S RETURN 

1046 L=lsPRINT"RL A" ;s RETURN 

1048 L=2s PRINT" JR ";:G0T05200 

105O L=1:PRINT"ADD HL, DE" s s RETURN 

1052 L=lsPRINT"LD A, (DE) ";: RETURN 
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1054 

1056 

1058 

1060 

1062 

1064 

1066 

1068 

1070 

1072 

1074 

1076 

1078 

1080 

1082 

10B4 

1086 

1088 

1090 

1092 

1094 

1096 

1098 

1100 

1102 

1104 

1106 

1108 

1110 

1112 

1114 

1116 

1118 

1120 

1122 

1124 

1126 

1128 

1130 

1132 

1134 

1136 

1138 

1140 

1142 

1144 

1146 

1148 

1150 

1152 

1154 

1156 

1158 

1160 

1162 

1164 

1166 

1168 

1170 

1172 

1174 

1176 

1178 

1180 

1182 

1184 

1186 

1188 

1190 

1192 

1194 

1196 

1198 

120O 

1202 

1204 



L=ls PRINT-DEC DE" ; sRETURN 
L=l SPRINT" INC E"; sRETURN 
L=ls PRINT-DEC E": sRETURN 
L=2 ! PR I NT " LD E , " ; : B0SUB40OO * RETURN 
L=lsPRINT"RR A";: RETURN 
L=2tPRINT"JR NZ ";:B0T052OO 
L=3:PRINT"LD HL, "s sG0SUB45OOs RETURN 
L=3sPRINT"LD <-; s G0SUB4500: PRINT" > ,HL": sRETURN 
L=l sPRINT" INC HL";: RETURN 
L=l sPRINT" INC H";s RETURN 
L=ls PRINT-DEC H"ss RETURN 
L=2 s PR I NT "LD H , " s : G0SUB4000 : RETURN 
L=l s PRINT"DAA" 5 s RETURN 
L=2sPRINT"JR Z -;sGOTO520O 
L=l: PRINT "ADD HL,HL"s s RETURN 

L=3sPRINT"LD HL, <"; :B0SUB4500s PRINT" > "i sRE TURN 
L=lsPRINT"DEC HL";sRETURN 
L=l SPRINT" INC L":s RETURN 
L=ls PRINT-DEC L";s RETURN 
L=2sPRINT"LD L, M ; ;G0SUB4000s RETURN 
L=l s PRINT"CPL" s s RETURN 
L~2sPRINT"JR NC "ssG0T05200 
L=3 s PR I NT" LD SP , " ; s G0SUB45O0 : RETURN 
L=3sPRINT"LD < " s s GOSUB45O0 s PR I NT " ) , A" ;: RETURN 
L=l SPRINT" INC SP"; sRETURN 
L=l SPRINT" INC (HL)";sRETURN 
L=lsPRINT"DEC <HL)"; sRETURN 
L=2 s PR I NT " LD ( HL > , " ; s G0SUB4OO0 s RETURN 
L= 1 s PR I NT " SCF " ; s RETURN 
L=2s PRINT- JR C ";:GOT05200 
L=1:PRINT"ADD HL,SP"; : RETURN 

L=3:PRINT"LD A, ( "; : BOSUB4500s PRINT" > "; : RETURN 
L=lsPRINT"DEC SP"; sRETURN 
L=l SPRINT" INC A" j sRETURN 
L=1:PRINT"DEC A"; sRETURN 
L=2 sPRINT-LD A , " ; s GOSUB4000 1 RETURN 
PR I NT " CCF " ; s RETURN 
PRINT-LD B,B"; sRETURN 
PRINT"LD B,C"; sRETURN 
PRINT"LD B,D" J SRETURN 
PRINT-LD B,E"; sRETURN 
PRINT-LD B,H"; sRETURN 
PRINT-LD B,L"; sRETURN 
PRINT-LD B, <HL>"S sRETURN 
PRINT"LD B, A"; sRETURN 
PRINT-LD C,B"; sRETURN 
PRINT-LD C,C"s sRETURN 
s s RETURN 



PRINT-LD C,D 
PRINT"LD C,E" ; sRETURN 
PRINT-LD C,H"; sRETURN 
PRINT-LD C,L"s sRETURN 
PRINT-LD C, <HL)"s sRETURN 
PRINT-LD C, A"; sRETURN 
PRINT-LD D,B"; sRETURN 
PRINT-LD D,C"; sRETURN 
PRINT-LD D,D"; sRETURN 
PRINT-LD D,E"; sRETURN 
PRINT-LD D,H"; sRETURN 
PRINT"LD D,L"; sRETURN 
PRINT-LD D, <HL)-s sRETURN 
PRINT-LD D, A" ; sRETURN 
PRINT-LD E,B-; sRETURN 
PRINT-LD E,C"; sRETURN 
PRINT-LD E,D";iRETURN 
PRINT-LD E,E"; sRETURN 
PRINT-LD E,H"; sRETURN 
PRINT-LD E,L"; sRETURN 
PRINT-LD E, (HL)";iRETURN 
PRINT-LD E, A" 5 sRETURN 
PRINT-LD H,B" J sRETURN 
PRINT-LD H,C"; sRETURN 
PRINT-LD H,D"; i RETURN 
PRINT-LD H,E";sRETURN 
PRINT-LD H,H"; sRETURN 
PRINT-LD H,L"; sRETURN 
PRINT-LD H, <HL)"; sRETURN 
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1206 PRINT"LD H, A"} -.RETURN 
1208 PRINT-LD L,B";: RETURN 
1210 PRINT"LD L,C M ; sRETURN 
1212 PRINT"LD L,D";:RETURN 
1214 PRINT M LD L,E"; sRETURN 
1216 PRINT"LD L,H"; sRETURN 
1218 PRINT"LD L,L M ; sRETURN 
1220 PRINT"LD L, (HL) "; sRETURN 
1222 PRINT"LD L, A"; sRETURN 
1224 PRINT-LD 
1226 PRINT"LD 
1228 PRINT"LD 
1230 PRINT"LD 
1232 PRINT"LD 
1234 PRINT"LD 



(HL),B"; sRETURN 
(HL>,C"; sRETURN 
(HL),D"; sRETURN 
(HL),E"s sRETURN 
(HL),H"; sRETURN 
(HL),L"; sRETURN 
1236 PR I NT "HALT"; sRETURN 
1238 PRINT"LD (HL) , A"; sRETURN 
1240 PRINT"LD A, B" ; s RETURN 
1242 PRINT"LD A, C";s RETURN 
1244 PRINT"LD A, D"; sRETURN 
1246 PRINT"LD A, E"; sRETURN 
1248 PRINT"LD A, H"; i RETURN 
1250 PRINT"LD A, L" s s RETURN 
1252 PRINT"LD A, (HL) "; sRETURN 
1254 PRINT-LD A, A"; sRETURN 
1256 PRINT"ADD A, B"; sRETURN 
1258 PRINT"ADD A, C" ; sRETURN 
1260 PRINT"ADD A,D"; sRETURN 
1262 PR I NT "ADD A, E"; sRETURN 
1264 PRINT"ADD A, H" ; 5 RETURN 
1266 PRINT"ADD A , L "; s RETURN 
1268 PRINT"ADD A, (HL) "; sRETURN 
1270 PRINT"ADD A, A"; sRETURN 
1272 PR I NT "ADC A, B"; sRETURN 
1274 PRINT"ADC A,C"; sRETURN 
1276 PR I NT "ADC A, D"; sRETURN 
1278 PRINT K ADC A, E"; sRETURN 
12BO PR1NT"ADC A, H"; sRETURN 
1282 PR I NT "ADC A, L";: RETURN 
1284 PRINT"ADC A, (HL) "; sRETURN 
1286 PRINT"ADC A, A"; sRETURN 
1288 PR I NT "SUB B"; sRETURN 
1290 PRINT"SUB C"j sRETURN 
1292 PR I NT "SUB D"; sRETURN 
1294 PRINT"SUB E"; sRETURN 
1296 PRINT"SUB H"; 5 RETURN 
1298 PR I NT "SUB L" ; sRETURN 
1300 PRINT"SUB (HL) "; sRETURN 
1302 PRINT"SUB A"; sRETURN 
1304 PR I NT "SBC A, B"; sRETURN 
1306 PRINT"SBC A, C M ; sRETURN 
1308 PR I NT "SBC A, D"; sRETURN 
1310 PRINT"SBC A, E"; sRETURN 
1312 PRINT"SBC A, H"; sRETURN 
1314 PRINT-SBC A, L"; sRETURN 
1316 PRINT"SBC A, (HL) ";: RETURN 
1318 PRINT"SBC A, A"; sRETURN 
1320 PR I NT "AND B"; sRETURN 
1322 PRINT"AND C"; sRETURN 
1324 PRINT"AND D"; sRETURN 
1326 PR I NT "AND E"; sRETURN 
1328 PR I NT "AND H"; sRETURN 
1330 PR I NT "AND L"; sRETURN 
1332 PR I NT "AND 
1334 PR I NT" AND 
1336 PRINT"XOR B 
1338 PRINT" XOR C 
1340 PR I NT "XOR D 
1342 PRINT"XOR E 
1344 PR INT "XOR H 
1346 PRINT" XOR L 
134B PR I NT "XOR 
1350 PR I NT "XOR 
1 352 PR I NT " OR B " ; s RETURN 
1354 PRINT-OR C"; sRETURN 
1356 PRINT"OR D"; sRETURN 



(HL)"; sRETURN 

A"; sRETURN 
; s RETURN 
; s RETURN 
; s RETURN 
; s RETURN 
; 3 RETURN 

L"; sRETURN 
(HL)"; sRETURN 

A" ;s RETURN 
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1358 PRINT"OR E";sRETURN 

1360 PRINT"OR H";:RETURN 

1362 PRINT-OR L";:RETURN 

1364 PRINT"OR (HL) "; s RETURN 

1366 PRINT-OR A";sRETURN 

1368 PRINT"CP B";:RETURN 

1370 PRINT"CP C";: RETURN 

1372 PRINT"CP D";sRETURN 

1374 PRINT M CP E";s RETURN 

1376 PRINT"CP H";: RETURN 

1378 PRINT"CP L"SB RETURN 

1380 PRINT-CP <HL)";s RETURN 

1382 PRINT"CP A";sRETURN 

1384 PR I NT" RET NZ";s RETURN 

1386 PRINT-POP BC";sRETURN 

1388 L=3:PRINT"JP NZ, "; sG0SUB45OOs RETURN 

1390 L=3:PRINT"JP " ; :G0SUB4500s RETURN 

1392 L=3 sPRINT "CALL NZ, ";: 60SUB4500: RETURN 

1394 L=l I PR INT "PUSH BC";sRETURN 

1396 L=2 SPRINT" ADD A, "; iG0SUB4000i RETURN 

1398 L=lsPRlNT"RST 0";:RETURN 

1400 L=l sPRINT "RET Z";s RETURN 

1402 L= Is PR I NT "RET";: RETURN 

1404 L=3:PRINT"JP Z, "; s G0SUB4500s RETURN 

1406 G0T010020 

1408 L=3 SPRINT "CALL Z ,";: G0SUB4500 s RETURN 

1410 L=3 s PR I NT " CALL " ; s GOSUB4500 s RETURN 

1412 L=2 s PR I NT " ADC A , " ; s 6OSUB4000 : RETURN 

1414 L=lsPRINT"RST 8";: RETURN 

1416 L=lsPRINT"RET NC";:RETURN 

1418 L=1:PRINT"P0P DE";s RETURN 

1420 L=3sPRINT"JP NC, "; :G0SUB4500s RETURN 

1422 L=2: PRINT-OUT - ; :GOSUB4000 s PRINT ", A"; s RETURN 

1424 L=3 sPRINT "CALL NC, " ; :G0SUB4500s RETURN 

1426 L=l: PRINT-PUSH DE";s RETURN 

1428 L=2s PRINT "SUB " ; : GOSUB4000: RETURN 

1430 L=lsPRINT"RST 10";: RETURN 

1432 L=1:PRINT"RET C";s RETURN 

1434 L=1:PRINT"EXX";: RETURN 

1436 L=3sPRINT"JP C, " ; s60SUB4500s RETURN 

1438 L=2sPRINT"IN A, "; s G0SUB4000s RETURN 

1440 L=3 sPRINT "CALL C, "; sG0SUB4500s RETURN 

1442 G*="IX":P*="<IX+IND)"sGOSUB11000sY*=RIGHT*<STR*<F+700O>,4) 

1443 GOSUB21 10s M= 1 7231 iGOSUB215Os6OTO50 

1444 L=2s PRINT"SBC A, "; :GOSUB4000s RETURN 
1446 L=lsPRINT"RST 18"; s RETURN 

1448 L=lsPRINT"RET PO";:RETURN 

1450 L=lsPRINT"POP HL";:RETURN 

1452 L=3s PRINT "JP PO ,";: G0SUB4500 s RETURN 

1454 L=lsPRINT"EX <SP) , HL"; : RETURN 

1456 L=3 sPRINT "CALL PO, "; :G0SUB4500s RETURN 

1458 L=l: PR INT "PUSH HL";sRETURN 

1 460 L=2 : PR I NT " AND " ; : G0SUB4000 s RETURN 

1462 L=lsPRINT"RST 20";: RETURN 

1464 L=lsPRINT"RET PE";: RETURN 

1466 L=ls PRINT" JP ( HL )"; s RETURN 

1468 L=3sPRINT"JP PE, "; s G0SUB4500: RETURN 

1470 L=1:PRINT"EX DE , HL ";: RETURN 

1472 L=3 sPRINT "CALL PE, "; s G0SUB4500s RETURN 

1474 60TD8000 

1476 L=2:PRINT"XOR ";: GOSUB4O00 x RETURN 

1478 L=1:PRINT"RST 28";sRETURN 

1480 L=l sPRINT "RET P";s RETURN 

1482 L=ls PRINT-POP AF";: RETURN 

1484 L=3sPRINT"JP P, "; SG0SUB450O! RETURN 

1486 L=1:PRINT"DI";» RETURN 

1488 L=3 SPRINT "CALL P, "; s GOSUB45O0s RETURN 

1490 L=l J PRINT-PUSH AF";: RETURN 

1492 L=2sPRINT"OR -; s G0SUB4000 s RETURN 

1494 L=lsPRlNT"RST 30";sRETURN 

1496 L=lsPRINT"RET M";:RETURN 

1498 L=liPRINT"LD SP,HL"; i RETURN 

1500 L=3:PRINT"JP M, "; :60SUB4500: RETURN 

1502 L=lsPRINT"EI";sRETURN 

1504 L=3sPRINT"CALL M, "; s 60SUB4500s RETURN 

1506 G*=" I Y" : P*=" < I Y+IND) " iSOSUBl lOOOs Y*«RIGHT* <STR* (F+7OO0) , 4) 
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1 507 GOSUB2 1 1 s M= 1 723 1 ! G0SUB2 1 SO s G0TD50 

1508 L=2sPRINT"CP "; s G0SUB4000: RETURN 
1510 L=1:PRINT"RST 38";: RETURN 

2000 INPUT-ENTER STARTING ADDRESS"; Z-.CLS: RETURN 

2002 ONERRORGOTO 1 2000 s RETURN 

20O5 I FK=14THEN INPUT "PRESS ENTER TO CONTINUE" ; A*: CLS:K=0 

2010 A=PEEK(Z):K=K+l:Y*=RI6HT*<STR*<A*2+lO0O),4> 

2020 GOSUB2 1 1 : M= 1 7 1 78 s G0SUB2 1 50 : V= Z : G0SUB3000 : G0T020 

2099 REM ** DETERMINE WHAT TO POKE ENTRANCE Y* ** 

2110 Y1*-RIGHT*(Y*,1):Y2*=MID*(Y*,3,1) 

2120 Y3*=MID*<Y*,2,1) : Y4*=LEFT* <Y«, 1 > 

2 1 30 Y 1 = ASC ( Y 1 * > : Y2=ASC ( Y2* ) : Y3=ASC < Y3* > J Y4=ASC ( Y4» ) : RETURN 

2149 REM ** POKE IT >M< =START ** 

2150 POKEM, Y4: POKEM+1 , Y3: POKEM+2, Y2: POKEM+3, Yl : RETURN 

2999 REM ** PRINT CURRENT ADDRESS ** 

3000 A1=V/256:A2=V-A1*256 

30 1 E= A 1 : G0SUB5000 s PR I NTC* ; = E=A2 s GOSUB5000 : PR I NTC* , , * RETURN 

3999 REM ** PEEK 8c PRINT A SINGLE BYTE ** 

4000 E=PEEK(Z+1) : GOSUB50O0 : PR I NTC* ; s RETURN 

4499 REM ** PEEK S< PRINT A DOUBLE BYTE ** 

4500 E=PEEK(Z+2) sGOSUB5000:PRINTC*; :GDSUB4000a RETURN 

4599 REM ** PEEK «« PRINT DOUBLE BYTE FROM 4 BYTE INSTR. *» 

4600 E=PEEK < Z +3 ) : G0SUB5000 : PR I NTC* ; : E=PEEK ( Z +2 ) i G0SUB5000 
4610 PR I NTC*;: RETURN 

4699 REM ** PEEK & PRINT SINGLE BYTE FROM 4 BYTE INSTR. ** 

4700 E=PEEK ( Z+3) : 60SUB5OO0: PRINTC*; : RETURN 

4999 REM ** DEC. TO HEX. CONVERSION ** 

5000 C*= " " : B=E / 1 6 : D=Bs I FB >9THEN5050EL5EC*=R I GHT* ( STR* ( B > , 1 ) 
5020 X=E-B*16sD=X: IFX>9THEN5050ELSEC*=C*+RIGHT* <STR*(X) ,1) 

5030 RETURN 

5050 0ND-9G0T05060 , 5O70 , 5080 , 5O90 , 5 1 00 , 5 1 1 O 

5060 C*=C*+ " A " : GOT05 1 20 

5070 C*=C*+"B":G0T05120 

5080 C*=C*+ " C " s G0T05 1 20 

5O90 C*=C*+"D" :G0T05120 

5100 C*=C*+"E":GOT05120 

5110 C*=C*+"F" 

5 1 20 I FLEN ( C* ) =2THENRETURNELSEGOT05020 

5199 REM »* CALCULATING & PRINTING DISPLACEMENTS <JR INSTR.) * 

5200 V=PEEK(Z+1) ! I=Zs IFV>127THENG0T05220ELSEVl=I+V+2; G0T05230 
5220 Vl=I+(V-256)+2 

5230 PRINT" ";:V=Vl:GOSUB3O0OsGOT030 
5999 REM ** PRINT ED INSTRUCTIONS ** 

6064 PRINT"IN B, (C) ";: RETURN 

6065 PR I NT " OUT < C ) , B " ; : RETURN 

6066 PRINT"SBC HL, BC" ;: RETURN 

6067 PRINT"LD <";: GOSUB4600-. PRINT" ) ,BC" ; -.RETURN 

6068 PR I NT " NEG " ; s RETURN 

6069 PRINT"RET N";: RETURN 

6070 PRINT" IM O";: RETURN 

6071 PRINT"LD 1, A" ;s RETURN 

6072 PRINT"IN C, (C) " | : RETURN 

6073 PR I NT "OUT (C) , C"; : RETURN 

6074 PR I NT "ADC HL.BC"; s RETURN 

6075 PRINT"LD BC, ("; s GOSUB4600 -.PR INT" )";: RETURN 
6077 PR I NT "RET I"; sRETURN 

6080 PRINT"IN D, (C) " ; sRETURN 

6081 PRINT"OUT (C) , D" ;: RETURN 

6082 PRINT"SBC HL, DE" ; s RETURN 

6083 PR I NT " LD < " ; s G0SUB4600 : PR I NT " ) , DE " ; s RETURN 

6086 PRINT" IM I"; s RETURN 

6087 PR I NT " LD A , I " ; : RETURN 

6088 PRINT"IN E, <C) "; sRETURN 

6089 PR I NT " OUT < C) , E " ; S RETURN 

6090 PR I NT "ADC HL, DE" ;s RETURN 

6091 PRINT"LD DE, (";: GOSUB46O0s PRINT") "; sRETURN 

6094 PRINT"IM 2"; sRETURN 

6095 PRINT-LD A,R"; :RETURN 

6096 PRINT" IN H, <C> ";: RETURN 

6097 PR I NT " OUT < C ) , H" ; s RETURN 

6098 PR I NT "SBC HL,HL"; : RETURN 

6 1 03 PR I NT " RRD " ; s RETURN 

6104 PRINT" IN L, <C)"; sRETURN 

6105 PRINT"OUT (C) ,L" ; S RETURN 

6106 PR I NT" ADC HL, HL"; : RETURN 
6111 PR I NT "RLD";: RETURN 
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DONT BE HELD BACK BY AN 
ANTIQUATED DISK OPERATING SYSTEM 

MOVE UP TO 
NEWD0S80 $149 incl. p&p 

NEWDOS 80 is a completely new DOS for the TRS-80 
SYSTEM 80. It is well -documented, bug free and 
increases the power of your system many times over. It 
is upward compatible with TRSDOS AND NEWDOS (ie 
TRSDOS and NEWDOS+ programs will run on 
NEWDOS 80 but the reverse is not necessarily so). 

These are just a few of the many new features offered 
by NEWDOS 80. 

New BASIC commands that support variable record 
lengths up to 4095 bytes long. 

Mix or match disk drives. Supports any track count 
from 18 to 96. Use 35, 40, 77 or 80 track 5% inch 
mini disk drives, 8 inch disk drives OR ANY COM- 
BINATION. 

* An optional security boot-up for BASIC or machine 
code application programs. User never sees "DOS- 
READY" or "READY" and is unable to "BREAK", 
clear screen or issue any direct BASIC statements, 
including "LIST". 

New editing commands that allow program lines to 
be deleted from one location and moved to another 
or to allow the duplication of a program line with 
the deletion of the original. 

* Enhanced and improved RENUMBER that allows 
relocation of subroutines. 

Create powerful chain command files which will 
control the operation of your system. 

* Device handling for routing to display and printer 
simultaneously. 

* MINI DOS - striking the D, F and G keys simul- 
taneously calls up a MINIDOS which allows you to 
perform many of the DOS commands without dis- 
turbing the resident program. 

Includes Superzap 3.0 which enables you to display/ 
print/modify any byte in memory or on disk. 

* Also includes the following utilities: 

— Disk Editor/Assembler 

— Disassembler (Z80 machine code) 

— LM offset — allows transfers of any system tape 
to Disk file — automatically relocated. 

— LEVEL I — Lets you convert your computer back 
to Level 1 . 

— LVIDKSL — Saves and loads Level 1 programs to 
disk. 

— DIRCHECK — Tests disk directories for errors 
and lists them. 

— ASPOOL — An automatic spooler which routes a 
disk file to the printer whilst the computer con- 
tinues to operate on other programs. 

— LCDVR — a lower case drives which display lower 
case on the screen if you have fitted a simple lower 
case modification. 



DISK DRIVE USERS 
ELIMINATE CRC ERRORS 
AND 
TRACK LOCKED OUT MESSAGES 
FIT A PERC0M DATA SEPARATOR 
$37.00 plus $1.20 p&p. 
When Tandy designed the TRS-80 expansion interface, 
they did not include a data separator in the disk- 
controller circuitry, despite the I.C. manufacturer's 
recommendations to do so. The result is that many 
disk drive owners suffer a lot of Disk 1/0 errors. The 
answer is a data separator. This unit fits inside your 
expansion interface. It is supplied with full instructions 
and is a must for the serious disk user. 



MPI DISK DRIVES 
HIGHER PERFORMANCE - LOWER PRICE 

MPI is the second largest manufacturer of disk drives in 
the world. MPI drives use the same form of head 
control as 8" drives and consequently, they have the 
fastest track-to-track access time available — 5msec! All 
MPI drives are capable of single or double-density 
operation. Double-density operation requires the instal- 
lation of a PERCOM doubfer board in the expansion 
interface. 

As well as single head drives, MPI also makes dual- 
head drives. A dual-head drive is almost as versatile as 
two single-head drives but is much cheaper. 

Our MPI drives are supplied bare or in a metal cabinet 
- set up to operate with your TRS-80 or SYSTEM 80. 
All drives are sold with a 90 day warranty and service is 
available through MICRO-80 PRODUCTS. 

MPI B51 40 Track Single Head Drive only $339 

MPI B52 40 Track Double Head Drive only $449 

Prices are for bare drives and include p&p. Add $10.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. 40 track drives are entirely compa- 
tible with 35 track drives. A 40 track DOS such as 
NEWDOS 80 is necessary to utilise the extra 5 tracks. 



OVER 800 KILOBYTES ON ONE DISKETTE! 

WITH MPI 80 TRACK DRIVES. 

MPI 80 track drives are now available. The B91 80 

track single-head drive stores 204 Kilobytes of for- 
matted data on one side of a 514 inch diskette in single- 
density mode. In double-density mode it stores 408 
Kilobytes and loads/saves data twice as quickly. 
The B92 80 track dual-head drive stores 204 Kilobytes 
of formatted data on EACH side of a 5% inch diskette 
in single-density mode. That's 408 Kilobytes per 
diskette. In double -density mode, the B92 stores a 
mammoth 408 Kilobytes per side or 816 Kilobytes of 
formatted data per diskette. With two B92's and a 
PERCOM double, you could have over 1.6 Megabytes 
of on line storage for your TRS-80 for less than $1500! I 

MPI B91 80 Track Single Head Drive only $499 

MPI B92 80 Track Dual Head Drive only $599 

Prices are for bare drives and include p&p. Add $10.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. Note: 80 track drives will not read 
diskettes written on a 35 or 40 track drive. If drives 
with different track counts are to be operated on the 
same system, NEWDOS 80 must be used. 



CARE FOR YOUR DISK DRIVES? 

THEN USE 

3M's DISK DRIVE HEAD CLEANING DISKETTES 

$30.20 incl. p&p. 

Disk drives are expensive and so are diskettes. As with 
any magnetic recording device, a disk drive works 
better and lasts longer if the head is cleaned regularly. 
In the past, the problem has been, how do you clean 
the head without pulling the mechanism apart and run- 
ning the risk of damaging delicate parts. 3M's have 
come to our rescue with SCOTCH BRAND, non- 
abrasive, head cleaning diskettes which thoroughly 
clean the head in seconds. The cleaning action is less 
abrasive than an ordinary diskette and no residue is 
left behind. Each kit contains: 

— 2 head cleaning diskettes 

— 1 bottle of cleaning fluid 

— 1 bottle dispenser cap 
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USE TANDY PERIPHERALS ON YOUR SYSTEM-80 

VIA 

SYSPAND-80 -$119 incl. p&p 

The SYSTEM-80 hardware is not compatible with the 
TRS-80 in two important areas. The printer port is 
addressed differently and the expansion bus is entirely 
different. This means that SYSTEM-80 owners are 
denied the wealth of economical, high performance 
peripherals which have been developed for the TRS-80. 
Until now, that is. MICRO-80 has developed the 
SYSPAND-80 adaptor to overcome this problem.' A 
completely self-contained unit in a small cabinet which 
matches the colour scheme of your computer, it con- 
nects to the 50-way expansion part on the rear of your 
SYSTEM 80 and generates the FULL Tandy 40 way 
bus as well as providing a Centronics parallel printer 
port. SYSPAND-80 enables you to run an Exatron 
Stringy Floppy from your SYSTEM 80, or an LNW 
Research expansion interface or any other desirable 
peripherals designed to interface to the TRS-80 expan- 
sion port. Make your SYSTEM 80 hardware compatible 
with the TRS-80 via SYSPAND-80. 



PROGRAMS BY MICROSOFT 

EDITOR ASSEMBLER PLUS (L2/16K) 
$37.50 + $1.20 p&p 

A much improved editor-assembler and debug/monitor 
for L2/16K TRS-80 or SYSTEM 80. Assembles directly 
into memory, supports macros and conditional assem- 
bly, includes new commands-substitute, move, copy 
and extend. 

LEVEL III BASIC $59.95 plus $1.20 p&p 

Loads on top of Level II BASIC and gives advanced 
graphics, automatic renumbering, single stroke instruc- 
tions {shift-key entries) keyboard debounce, suitable 
for L2/16K and up (Not Disk BASIC) 

ADVENTURE ON DISK $35.95 plus $1.20 p&p 

This is the original ADVENTURE game adapted for 
the TRS-80. The game fills an entire diskette. Endless 
variety and challenge as you seek to rise to the level of 
Grand Master. Until you gain skill, there are whole 
areas of the cave that you cannot enter. (Requires 32K 
One Disk) 

BASIC COMPILER $208 plus $2.00 p&p 

New improved version, the Basic Compiler converts 
Disk BASIC programs to machine code, automatically. 
A compiled program runs, on average, 3-10 times faster 
than the original BASIC program and is much more 
difficult to pirate. 



UPGRADE TO 16K 
FOR ONLY $30.00!! 

MICRO-80's 16K MEMORY EXPANSION KIT 
HAS BEEN REDUCED IN PRICE EVEN MORE 

Larger volume means we buy better and we pass the 
savings on to you. These are our proven, prime, branded 
200 ns (yes, 200 nanosecond) chips. You will pay 
much more elsewhere for slow, 350 ns. chips. Ours are 
guaranteed for 12 months. A pair of DIP shunts is also 
required to upgrade the CPU memory in the TRS-80 - 
these cost an additional $4.00. All kits come complete 
with full, step-by-step instructions which include 
labelled photographs. No soldering is required. You do 
not have to be an experienced electronic technician to 
instal them. 



DISK DRIVE CABLES 
SUITABLE FOR ANY DISK DRIVES 

DC-2 2 Drive Connector Cable $35 incl. p&p 

DC-4 4 Drive Connector Cable $45 incl. p&p 



DOUBLE THE SPEED AND CAPACITY 

OF YOUR DISK DRIVES 

PERC0M D0UBLER ONLY $220 

plus $2 .00 p&p 

Installing a Doubler is like buying another set of disk 
drives, only much cheaper!! The doubler works with 
most modern disk drives including:- MPI, Micropolis, 
Pertec, TEAC (as supplied by Tandy). The doubler 
installs in the TRS-80 expansion interface, the System - 
80 expansion interface and the LNW Research expan- 
sion interface in a few minutes without any soldering, 
cutting of tracks, etc. It comes complete with its own 
TRSDOS compatible double density operating system. 



DOUBLE-ZAP II - DOUBLE DENSITY PATCH 

FORNEWDOS80 

ONLY $53.00 plus $1.00 p&p 

If you are using NEWDOS 80, then you also need 

DOUBLE-ZAP II, on diskette. This program upgrades 
your NEWDOS 80 to double density with ADR (auto- 
matic density recognition.) It retains all the familiar 
features, including the ability to mix and match 
track counts on the same cable. In addition, it gives 
NEWDOS 80 the ability to mix densities on the same 
cable, automatically. If you place a single density 
diskette in drive 0, say and a double density diskette 
in drive 1, Double-Zap! I will recognise this and read/ 
write to drive in single density whilst at the same 
time it reads/writes to drive 1 in double density! 



FLOPPY DOCTOR AND MEMORY DIAGNOSTIC 
(by MICRO CLINIC) $29.95 plus 50c. p&p 

Two machine language programs on a diskette together 
with manual which thoroughly test your disk drives 
and memory. There are 19 possible error messages in 
the disk drive test and their likely causes are explained 
in the manual. Each pass of the memory tests checks 
every address in RAM 520 times, including the space 
normally occupied by the diagnostic program itself. 
When an error occurs the address, expected data, and 
actual data are printed out together with a detailed 
error analysis showing the failing bit or bits, the corres- 
ponding IC's and their location. This is the most 
thorough test routine available for TRS-80 disk users. 



BOOKS 

LEVEL II ROM REFERENCE MANUAL 
$24.95 + $1.20 p&p 

Over 70 pages packed full of useful information and 

sample programs. Applies to both TRS-80 and SYSTEM 

80. 

TRS-80 DISK AND OTHER MYSTERIES 

$24.95 + $1 .20 p&p 

The hottest selling TRS-80 book in the U.S.A. Disk file 
structures revealed, DOS's compared and explained, 
how to recover lost files, how to rebuild crashed 
directories - this is a must for the serious Disk user 
and is a perfect companion to any of the NEWDOS's. 

LEARNING LEVEL II 
$16.95 + $1.20 p&p 

Written by Daniel Lien, the author of the TRS-80 
Level I Handbook, this book teaches you, step-by -step, 
how to get the most from your Level II machine, 
invaluable supplement to either the TRS-80 Level II 
Manual or the System-80 Manuals. 



HIGH QUALITY DISKETTES all prices include p&p 



HIGH QUAL 



40 TRACK NASHUA SINGLE SIDE/SINGLE DENSITY ... $45.00 box of 10 40 TRACK VERBATIM DOUBLE SIDE 



PAGE 19 



SOFTWARE BY AUSTRALIAN AUTHORS 

All our software is suitable for either the SYSTEM 80 or the TRS-80 



NEW SOFTWARE FROM MICRO-80 PRODUCTS 
BUSINESS PROGRAMS 

MICROMANAGEMENT 
STOCK RECORDING SYSTEM (L2/1BK) 

Cassette version $29.95 + $1.00 p&p 

Stringy Floppy version $33.95 + $1 .00 p&p 

This system has been in use for 9 months in a number 
of small retail businesses in Adelaide. It is therefore 
thoroughly debugged and has been tailor made to suit 
the requirements of a small business. MICROMANAGE- 
MENT SRC enables you to monitor the current stock 
level and reorder levels of 500 different stock items per 
tape or wafer. It includes the following features: — 

— Add new items to inventory 

— Delete discontinued items from inventory 

— List complete file 

— Search for any stock number 

— Save data to cassette or wafer 

— Load data from cassette or wafer 

— Adjusts stock fevels from sales results and receipt 
of goods 

— List all items requiring reordering 

We can thoroughly recommend this program for the 
small business with a L2/16K computer. 



SCOTCH BRAND COMPUTING CASSETTES 

Super-quality personal computing cassettes. 

C-IOpackof 10 $26.00 incl. p&p 

C-30 pack of 10 $28.00 incl. p&p 



UTILITIES 

S-KEY by Edwin Paay $15.95 plus 50c. p&p 

S-KEY is a complete keyboard driver routine for the 
TRS-80 and becomes part of the Level II basic inter- 
preter. With S-KEY loaded the user will have many 
new features not available with the standard machine. 
S-KEY features: 

S-KEY provides an auto-repeat for all the keys on 
the keyboard. If any key is held down longer than 
about half a second, the key will repeat until it is 
released. 

Graphic symbols can be typed direct from the key- 
board, this includes all 64 graphic symbols available 
from the TRS-80/SYSTEM 80. 

* S-KEY allows text, BASIC commands and/or 
graphics to be defined to shifted keys. This makes 
programming much easier as whole commands and 
statements can be recalled by typing shift and a 
letter key. 

* Because S-KEY allows graphics to be typed directly 
from the keyboard, animation and fast graphics are 
easily implemented by typing the appropriate 
graphics symbols directly into PRINT statements. 
S-KEY allows the user to LIST a program with 
PRINT statements containing graphics, properly. 
S-KEY does this by intercepting the LIST routine 
when necessary. 

S-KEY allows the user to list an updated list of the 
shift key entries to the video display or line printer. 
S-KEY can be disabled and enabled when required. 
This allows other routines which take control of the 
keyboard to run with S-KEY as well. 

Each cassette has TRS-80, DISK and SYSTEM 80 
versions and comes with comprehensive documentation. 



BM0N by Edwin Paay $19.95 plus 50c. p&p 

THE ULTIMATE HIGH MEMORY BASIC MONITOR 
L2/1648K 

Our own personnel refuse to write BASIC without first 
loading this amazing machine language utility program 
into high memory! BMON Renumbers; Displays BASIC 
programs on the screen while they are still loading; tells 
you the memory locations of the program just loaded; 
lets you stop a load part -way through; merges two 
programs, with automatic renumbering of the second 
so as to prevent any clashes of line numbers; recovers 
your program even though you did type NEW: makes 
one program invisible while you work on a second 
(saves hours of cassette time!); lists all the variables 
used in the program; makes SYSTEM tapes; lets you 
Edit memory directly ... the list goes on and on. 
Cassette comes with 16K, 32K and 48K versions, ready 
to load. Can anyone afford NOT to have BMON? 



EDUCATIONAL 

RPN CALCULATOR (L2/16K & 32K) 
$14.95$ 50c. p&p 

Give your computer the power of a $650 reverse polish 
notation calculator with 45 functions and selectable 
accuracy of 8 or 16 digits. The main stack and registers 
are continuously displayed whilst the menu is always 
instantly accessible without disturbing any calculations 
or register values. The cassette comes with both the 
16K and 32K versions, the latter giving you the addi- 
tional power of a programmable calculator. Comes 
with a very comprehensive 15 page manual, which 
includes instructions to load and modify the 32K pro- 
grammable version to run in 16K. Whether for business 
or pleasure, this package will prove invaluable, and turn 
you '80 into a very powerful instrument. 



GAMES 

MICR0P0LY (L2/16K) $7.50 $ 50c p&p 

Now you can play Monopoly on your micro. The old 
favourite board game has moved into the electronic era. 
This computer version displays the board on the screen, 
obeys all the rules and, best of all, the banker does not 
make mistakes with your change! 

CONCENTRATION (L2/16K) $7.50 + 50c p&p 

Another application of supergraphics. There are 28 
"cards" displayed on the screen, face down. Players 
take it in turn to turn them over with the object of 
finding matching pairs. There are 40 different patterns 
which are chosen at random, so the game is full of end- 
less variety. This is of particular value in helping young 
children to learn the art of concentrating and, at the 
same time, to introduce them to the computer. 

METEOR AND TORPEDO ALLEY (L2/16K) 
$9.95 + 50c p&p 

Those who frequent games arcades will recognize these 
two electronic games. In METEOR you must destroy 
the enemy space ships before they see you. In its most 
difficult mode, the odds are a thumping 238 to 1 
against you being successful. In torpedo alley you must 
sink the enemy ships without hitting your own supply 
ship. Both games include sound effects and are remark- 
ably accurate reproductions of the arcade games. 



TY DISKETTES 

DOUBLE DENSITY ... $59.00 box of 10 



HIGH QUALITY DISKETTES 

77 TRACK VERBATIM SINGLE SIDE/SINGLE DENSITY ... $59.00 box of 10 
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AUSTRALIAN SOFTWARE (Cont.) 
GAMES 

SHEEPDOG (L2/16K) $7.50 + 50c p&p 

Ever wondered how a sheepdog manages to drive all 
those awkward sheep into a pen? Well, here is your 
chance to find out just how difficult it is and have a 
lot of fun at the same time. You control the sheepdog, 
the computer controls the sheep! As if that isn't 
enough, look out for the dingoes lurking in the bush! 
U BOAT $7.50 plus 50c p&p 

Real time simulation at its best! Comes with working 
sonar-screen and periscope, a full rack of torpedoes, 
plenty of targets, working fuel and battery meters, 
helpful Mothership for high-seas reprovisioning and 
even has emergency radio for that terrible moment 
when the depth charges put your crew at risk. Requires 
Level II/16K. 

SPACE INVADERS WITH SOUND $7.50 + 50c p&p 
Much improved version of this arcade favourite with 
redesigned laser and cannon blasts, high-speed cannon, 
50 roving drone targets, 10 motherships and heaps of 
fun for all. Level II with 4K and 16K versions on this 
cassette. 

GOLF(L2/16K) $7.50 + 50c p&p 

Pit your skills of mini-golf against the computer. Choose 
the level of difficulty, the number of holes and whether 
you want to play straight mini golf or crazy golf. Com- 
plete with hazards, water traps, bunkers and trees. 
Great fun for kids of all ages. 

DOMINOES(L2/16K) $7.50 + 50c p&p 

Pit your skill at dominoes against the computer, which 
provides a tireless opponent. Another application of 
supergraphics from the stable of Charlie Bartlett. 
Dominoes are shown approximately life size in full 
detail (except for colour!). The monitor screen is a 
window which you can move from one end of the 
string of dominoes to the other. Best of all, you don't 
lose any pieces between games! 
KtD'S STUFF (formerly WIMM-1) $7.50 plus 50c. p&p 
Three games on one cassette from that master of TRS- 
80 graphics, Charlie Bartlett. Includes INDY 500, an 
exciting road race that gets faster and faster the longer 
you play, SUBHUNT in which your warship blows up 
unfortunate little submarines all over the place, and 
KNIEVEL (as in motorcycle, ramp and buses). 



OTHER PROGRAMS 

INFINITE BASIC BY RACET {32K/1 DISK) 
$49.95 + 50c. p&p 

Full matrix functions - 30 BASIC commands; 50 more 
STRING functions as BASIC commands. 
GSF/L2/48K $24.95 + 50c. p&p 

18 machine language routines including RACET sorts. 
BUSINESS ADDRESS AND INFORMATION SYSTEM 
(48K/DISK) $24.95 + 50c p&p 

Allows you to store addresses and information about 
businesses, edit them and print them out. 

HISPED (L216,32 or48K) $29.95 

This machine language program allows you to SAVE 
and LOAD programs and data to tape at speeds up to 
2000 band (4 times normal) using a standard cassette 
recorder. A switch must be installed to remove the 
XRX III loading board, if fitted. 



LOWER CASE FOR YOURTRS-80/SYSTEM 80 
Kit only $49.00 plus $2,00 p&p 

Give your TRS-80 or SYSTEM 80 a lower case display 
with proper descenders and a block cursor (similar to 
the TRS-80 Model III). Also includes symbols for the 
four suits of cards. Includes full fitting instructions, all 
necessary components and a special machine language 
driver program to enable lower case in BASIC. The 
modification is similar to the Tandy model and does 
not work with Electric Pencil without further modifi- 
cations. 

These kits require disassembly of your computer and 
some soldering. They should only be installed by 
someone who has experience in soldering integrated 
circuits, using a low power, properly earthed soldering 
iron. If you do not have the necessary experience/ 
equipment, we will install the modification for you for 
$20 plus freight in both directions. Make sure you 
arrange the installation with us first, before despatch- 
ing your computer, so that we can assure you of a 
rapid turn-around. We are also arranging to have 
installers in each State. See elsewhere in this issue for 

their names and addresses. 

PRICES 

Cat No. 

HD-020 Lower case mod kit for TRS-80 

$49.00 plus $2.00 p&p 

HD-021 Lower case mod kit for SYSTEM-80 

$49.00 plus $2.00 p&p 



EPSON MX-80 PRINTER 

ONLY *$949 Inc. Cable for TRS-80 and p&p 

(•Printer only - $940 incl. p&p) 

The EPSON MX-80 printer is compact, quiet, has 
features unheard of only 2-3 years ago in a printer at 
any price and, above all, is ultra-reliable. All available 
print modes may be selected under software control. 
Features include: 

— high quality 9x9 dot-matrix character formation 

— 3 character densities 

80 characters per line at 10 chars/inch 

.132 characters per line at 16.5 chars/inch 

40 characters per line at 5 chars/inch 

— 2 linespacings 

. 6 lines per inch . 8 lines per inch 

— 80 characters per second print speed 

— bi-directional printing 

— logical seeking of shortest path for printing 

— lower case with descenders 

— TRS-80 graphics characters built in 

— standard Centronics printer port 

The bi-directional printing coupled with the logical 
seeking of the shortest print path (which means that 
the print head will commence printing the next line 
from the end which requires the least travel, thereby 
minimising unutilised time) gives this printer a much 
higher throughput rate than many other printers 
quoting print speeds of 1 20 c.p.s. or even higher. 



GREEN SCREEN SIMULATOR 
$19.95 incl. p&p 

The GREEN SCREEN SIMULATOR is made from a 
deep green perspex, cut to fit your monitor. It improves 
contrast and is much more restful to the eyes than the 
normal grey and white image. -„ C cm 

All editorial staff of MICRO-80 are now using GREEN 
SCREEN SIMULATORS on their own monitors. 

Please make sure to specify whether you have an old 
(squarish) or new (rounded) style monitor when order- 
ing. Not available for Dick Smith monitors. 
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6114 PRINT"SBC HL,SP"j: RETURN 

6115 PRINT"LD <"; :60SUB4600s PRINT" ) ,SP": s RETURN 

6120 PRINT" IN A, <C)";:RETURN 

6121 PRINT-OUT (C) , A"; ! RETURN 

6122 PRINT"ADC HL,SP": : RETURN 

6123 PRINT-LD SP , ( " ; : G0SUB4600 : PR I NT " > " ; : RETURN 

6160 PRI NT" LDI";: RETURN 

6161 PRINT"CPI";sRETURN 

6162 PRINT"INI";;RETURN 

6163 PRINT"OUTI";s RETURN 

6168 PRINT"LDD";: RETURN 

6169 PRINT "CPD" J! RETURN 

6170 PRINT" IND" 5 i RETURN 

6171 PRINT"OUTD" ; : RETURN 

6176 PRINT"LDIR"j: RETURN 

6177 PR I NT " CP I R";: RETURN 

6178 PRINT" INIR":: RETURN 

6179 PRINT"OTIR";s RETURN 

6 1 84 PR I NT " LDDR " $ r RETURN 

6 1 85 PR I NT " CPDR " ; t RETURN 

6186 PRINT" INDR";s RETURN 

6 1 87 PR I NT " OTDR " ; : RETURN 

7007 REM ** PRINT DD & FD INSTRUCTIONS ** 
7009 L=2sPRINT"ADD ";G*: " ,BC"s i RETURN 
7025 L=2 SPRINT "ADD ":G*; % DE"; : RETURN 

7033 L=4:PRINT"LD ";G»s % ": sGOSU8460Os RETURN 

7034 L=4 : PR I NT "LD < " ; : GOSUB4600 : PR I NT " ) , » ; G» ; s RETURN 

7035 L=2s PRINT" INC " ;G*s i RETURN 

7041 L=2: PRINT" ADD "; G*; ","; G*; s RETURN 

7042 L=4:PRINT"LD " ; G*; " , < " ; SG0SUB4600: PRINT") "; sRETURN 

7043 L=2 s PR I NT " DEC " ; G* : s RETURN 

7052 L=3: PRINT" INC ";P*;s RETURN 

7053 L=3:PRINT"DEC ":P*j: RETURN 

7054 L=4 s PR I NT " LD " ; P* s " , " ; s G0SUB4700 s RETURN 
7057 L=2:PRINT"ADD "; G*«, ", SP"; -. RETURN 

7070 L=3:PRINT"LD B, M ;P*; s RETURN 
7078 L=3:PRINT"LD C, "; P*; : RETURN 
7086 L=3.-PRINT"LD D, "; P*j : RETURN 
7094 L=3:PRINT"LD E, ";P*; s RETURN 
7102 L=3:PRINT"LD H, " ;P*; s RETURN 
7110 L=3:PRINT"LD L, " j P*; s RETURN 

7112 L=3sPRINT"LD "; PS; ", B" ; s RETURN 

7113 L=3:PRINT"LD »'; P*; " ,C"; : RETURN 

7114 L=3:PRINT"LD ";P*; " ,D"; : RETURN 

7115 L=3:PRINT"LD "; P*; " ,E" ; r RETURN 

7116 L=3:PRINT"LD ";P*; «,H" ;: RETURN 

7117 L=3:PRINT"LD ";P*; ",L"j -. RETURN 
7119 L=3:PRINT"LD ";P*; ", A"; s RETURN 
7126 L=3:PRINT"LD A, ";P»; : RETURN 
7134 L=3: PRINT" ADD A, ";P*; s RETURN 
7142 L=3: PRINT"ADC A, "; P*s s RETURN 
7150 L=3: PRINT"SUB " j P* ; s RETURN 
7158 L=3sPRINT"SBC A, "; P*; : RETURN 
7166 L=3sPRINT"AND ";P*s: RETURN 
7174 L=3» PRINT" XOR ";P*;j RETURN 
7182 L=3:PRINT"OR " ;P«; z RETURN 
7190 L=3:PRINT"CP ";P*;s RETURN 
7225 L=2:PRINT"POP ";G*;: RETURN 
7227 L=2:PRINT"EX <SP) ,"; G*; s RETURN 
7229 L=2: PRINT "PUSH ";G*;sRETURN 
7233 L=2s PRINT" JP (" ;G*; ")";: RETURN 
7249 L=2:PRINT"LD SP ,"; 6* ;: RETURN 

7999 REM ** 8000 - ED INSTRUCT. 

8000 GOSUB 1 1 OOO s Y*=R I GHT* ( STR* ( F+6000 ) , 4 ) s G0SUB2 1 1 

8005 I FF=670RF=75ORF=B3ORF=9 1 ORF= 1 1 50RF= 1 23THENL=4ELSEL=2 
80 lO M=17231sGOSUB2150:GOT050 

9999 REM *« PRINT CURRENT MEMORY CONTENTS (ALL INSTR. ) ** 

10000 W=OsFORT=lTOLsE=PEEK(2-l+T> sGOSUBSOOO 

10010 PRINT315+<K~1)*64+W,C*;:W=W+2:N£XT 

10011 REM ** PRINT ASCII CHARACHTERS »t 

10012 W=0:F0RT=1T0L!S=PEEK<Z-1+T) : IFNOT (S>64ANDS<91 ) THENS=46 
10016 PRINTS>54+<K-1)»64+W,CHR*<S) ; :W=W+2: NEXT: PRINT: RETURN 

10019 REM ** CB INSTRUCTIONS ** 

10020 L=2sN=PEEK(Z+l)sIFN>=64THENG0T01018O 
10030 GOSUB 1 0050 i GOSUB lO ISO 

1004O PRINTQ*;" ":D*;s RETURN 
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1 0O50 I FN< 8TH£NG*= " RLC " : RETURN 

1 006O I FN< 1 6THENQ*= " RRC " I RETURN 

1 0070 I FN< 24THENQ*= " RL " s RETURN 

1008O IFN<32THENG*="RR"s RETURN 

1 OO90 I FN< 40THENQ*= M SLA" : RETURN 

10100 I FN<56THENQ*= "BRA": RETURN 

10110 IFN<64THENQ*="SRL M » RETURN 

1012O IFN<12BTHENQ*="BIT"i RETURN 

10130 IFN<192THENQ*= H RES"s RETURN 

10140 Q*= "SET": RETURN 

10150 R=N/8:R=N-R*8+1 

10160 RESTORE: FORT=lTDRsREADD*iNEXTs RETURN 

10170 DATAB,C,D,E,H,L, <HL),A 

10180 GOSUBl0120:80SUB10l50seOSUB10200 

10190 PRINTQ*J J; ",";D*;s RETURN 

1 0200 I FN > 1 27ANDN< 1 92THENO= 1 28 s GOTO 1 0220 

10210 IFN>191THEN0=192ELSED=64 

10220 J=(N-0) /8s RETURN 

10999 REM ** PEEK AT 2ND BYTE OF DD/ED/FD INSTR. ** 

1 1000 F=PEEK < Z+l ) : IFNOTF=203THENRETURNELSEL=4 

1 1005 N=PEEK < Z+3) i IFN< A3THEN1 1 100ELSEU=N: U=U/8 

11010 IFU>7TH£NU=U-8:80T011010 

11020 GOSUB10120sPRINTQ*;U;* , ,";P*j:eOT03O 

11100 GOSUB10050:PRINTQ*;" ";P*;sB0T030 

12000 IFERR/2+l=8THENPRINT"? DATA 7" ; sL=l sRESUME30 

12002 PR I NT: PR I NT "ERROR NUMBER" ; ERR/2+1; "IN LINE" ?ERL: END 



***** 12 HOUR CLOCK L2/4K m/1 (c) Brenton Hoff ***** 

Here is a clock program which is ideally suited to loading into the '80 when nothing else > is 
being run on it. It features large digits and high accuracy (the time is displayed to the hundredth 
of a second). Operation is easy and fast and the program is designed to minimise interference 
caused on the screen. 

ENTERING THE PROGRAM 

Using a suitable monitor such as BMON, RSM etc., enter the -Itai luting : shown below into memory 
(TBUG is not suitable as it resides in the same area as CLOCK). Punch out a SYSTEM tape using 
the following parameters :- 

START END ENTRY NAME 

4A36 4BA0 4A36 CLOCK 

LOADING FROM CASSETTE 

1. Switch on the computer 

2. Answer MEMORY SIZE7/READY? with ENTER/NEWLINE. 

3. Type SYSTEM and press ENTER/NEWLINE 

4. Answer *? by typing CLOCK, press ENTER/NEWLINE 

5. When the program has loaded, answer the second *? by typing / and press ENTER/NEWLINE to begin 
execution. 

The program will immediately display:- 

HHMMSSHH? 

where the first two H<s stand for hours the two M's for minutes the -two S '_ s f or seconds and 
the last two H's for hundredths of seconds. You must enter all 8 digits E.g. 4.10 would oe 
entered as 04100000. Type in a time which is a little ahead of the actual time and then press 
the ENTER/NEWLINE key at the instant the time is correct ^extreme ^uracy, ad dan ex « 
0.10 seconds to the time at which you intend to press the ENTER/NEWLINE key. This allows tor 
the input processing time of the computer. 

The clock will commence functioning at the time typed in and requires no further input. The 
time is displayed in large graphics and, at least on the TRS-80 monitor, the interference caused 
by the clock display often synchronises quite accurately with the electron beam, the speed and 
direction of the interference being closely related to the calibration of the clock. 
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4A36: 21 F7 4A CD A7 28 CD B3 IB CD 78 ID 11 E5 4A 06 

4A46: 08 7E D6 30 FA 36 4A FE 3A 30 E5 12 23 13 10 Fl 

4A56: CD C9 Ol 06 07 21 E5 4A 7E E5 21 FO 4A B7 28 04 

4A66S 36 02 18 02 36 09 El 3E B3 32 12 3E 32 20 3E 3E 

4A76S BO 32 2E 3E 04 B7 7E E5 68 2D 26 4B SE 16 3D 4F 

4A86s 17 17 17 17 C6 08 91 6F 3E 03 C5 01 05 OO ED BO 

4A96: Ol 3B OO EB 09 EB 3D 20 F2 CI El 23 10 D7 Ol 8B 

4AA6: 02 CD 60 OO OO 00 OO OO 21 EC 4A 11 F6 4A 01 OO 

4AB6s OO 34 1A BE 30 06 71 2B IB 04 18 F5 78 FE 07 38 

4AC6: B3 E5 21 FO 4A 3E OB AE 77 21 E5 4A 7E 23 B6 20 

4AD6: 02 36 01 El 78 FE 08 20 9B 23 05 18 97 OO OO OO 

4AE6: 00 00 00 OO 00 00 OO FF FF 01 09 05 09 05 09 09 

4AF6: 09 48 48 4D 4D 53 53 68 68 00 F6 FO E8 E2 DA D4 

4B06: CC C6 BC 83 83 B3 BC BF 8C 83 80 BF 80 83 83 83 

4B16: 80 80 8C BF 80 SO 80 80 BF 80 80 80 83 83 83 80 

4B26s 8C 83 83 83 BC BC 83 83 83 80 83 83 83 83 83 8C 

4B36: 83 83 83 BC BO 80 83 83 BC 80 83 83 83 80 80 BO 

4B46s 8C BF 80 8F 8C 8C BF BC 80 80 BO 83 80 BF B3 B3 

4B56s B3 83 BO 80 80 80 BF 80 83 83 83 80 BO 8C 83 83 

4B66: 80 BF 83 83 83 BC 80 83 83 83 80 83 83 83 B3 8F 

4B76: BO 8C 83 80 80 83 80 80 BO 80 BC 83 83 83 BC BC 

4886: 83 83 83 BC 80 83 83 83 80 BC 83 83 83 BC 80 83 

4B96: 83 B3 8F 80 83 83 80 SO 47 FF FF 



***** 



BONES LII/4K (c) David Balaic ***** 



LOADING INSTRUCTIONS. 



To load the program from cassette, answer MEMORY SIZE? (READY?) by pressinq ENTER/NEW LINE 
Then type CLOAD"B". 
When the program has loaded type RUN and press ENTER/NEWLINE. 

HOW TO PLAY. 

The object of this reflex game for two players is to be the first to build a complete skeleton. 
The screen is divided down the middle, the first player's skeleton will be built on the left 
of the screen and the second on the right. The left hand player uses the "Z" key and the riqht 
hand player uses the "/" key. 

At the bottom of the screen the words: 

PRESS A KEY — 
will be displayed. When the word "NOW" appears the first player to press his key will get some 
bones, but be careful. If you press your key before the word "NOW" appears you lose ALL your 

10 'BONES BY DAVID BALAIC, 194/125 NAPIER ST., FITZROY 3065 

COPYRIGHT <C> COMPLETED 4/11/19SO. 

20 CLS:PRINT3221, "BONES";: RANDOM 

30 F0RX=59T067-.SET(X,23):NEXT S SET(59,27):SET(67,27):SET(63,26) S SET(60,25):SET(61 

, 25) : SET (65, 25) : SET (66, 25) : F0RY=24T026: SET (58, Y) : SET (68, Y) : NEXT 

40 F0RX=60T066STEP2: SET ( X, 28) s RESET (X, 30) : SET (X, 29) ! NEXT 

50 FORX=60T066STEP2: RESET (X, 29) .- SET ( X, 30) : NEXT* Z=Z+1 

60 I F Z=27THEN70ELSEFORN= 1 TO 1 OO » NE XT : G0T040 

70 CLS: PRINT" THE BONES PROGRAM BY DAVID BALAIC": PRINT 

80 PR I NT "THIS GAME TESTS YOUR REFLEXES. YOU MUST BEAT YOUR OPPONENT BY 

PRESSING YOUR KEY (Z FOR PLAYER #1, /FOR PLAYER #2) WHEN TOLD. » 

90 INPUT-HIT 'ENTER' TO CONTINUE"; Z* 

100 CLS: FORY=OT044: SET (61 , Y) : SET (62, Y) : NEXT: G=28: M=32: J=63 

110 C«=INKEYS:PRINT3960, "PRESS THE BUTTON. . . " ; :FORN=OTORND (200 

) : B*= I NKEY* : I FB*< > " " THEN 1 30ELSENE X T 

120 G0T0160 

1 30 I FB*= " Z " PR I NT3458 , " CHEAT ! " ; r 60SUB400 

1 40 I FB*= " / " PR I NT3490 , " CHEAT ! " ; : GOSUB400 

ISO NEXT 

160 PRINT3983, "N O W" ; : A*=INKEY«: IFA*=""THEN160ELSE170 

170 IFA*="Z"T=T+l:GOT0210 

1 80 I F A*= " / " S=S+ 1 : 60T0300 

190 IF(A*="Z/")OR(A*="/Z")A*=LEFT*(A*,1):GOT0170ELSE200 

200 PRINTS)960,"DRIPS! -PRESS ' Z' OR '/•• COR BLIMEY! »;: FORN=1TD1300: NEXTsGOTOl 10 

210 IFT=lFORX^l 1T021 j SET (X, 44) : NEXT: F0RY=29T043: SET (21 , Y) : NEXT: GOT01 10 

220 IFT=2F0RX=30T040:SET(X,44):NEXT:F0RY=29T043:SET(30,Y):NEXT:G0T0110 

230 IFT=3FORX=19T032:SET(X,24)!5ET(X,2B>:NEXT S FORY=10T023:SET(25,Y):SET(26.Y)-NE 

XT: SET (21 , 26) : SET (30, 26) : F0RY=25T027: SET ( 19, Y) : SET (32, Y) : NEXT: GOT01 10 
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2 40 IFT=4FORX=15T036:SET(X, 9) : NEXT. FORX=23T028:SET (X, 3) l^" 1 "™^'^^!-'* 2 '" 
I SET(29,Y) S NEXT S SET(23,6) ! SET(28,6):SET(27,5) 8 SET<24,5) S F0RX=24T027-.SET<X,7) 3 NEX 

25^IfT=5FORY=IoT020-SET(15 
EXT-.F0RY=30T032 ! SET(14,Y) S SET(15,Y).SET<16,Y>.NEXT:SET<13,31>.SET(17,31)sSET(15, 

26^ ?FT°6F0RY=10T020: SET (36, Y ) -. NEXT: SET <36, 29) : FORY=2 1T028. SET <35, Y ) : SET (37, Y) * N 
EXT:F0RY=30T032:SET(35,Y):SET<36,Y).SET<37,Y),NEXT S SET<34,31>:SET(38,3i)iSET(36, 

33) sBOTOHO 

270 IFT=7F0RX=18T033s SET ( X , 1 1 ) s SET C X , 13) : NEXTs GOT01 10 

280 IFT=8F0RX=18T033:SET(X,16) S SET(X,18):SET(X,2O).NEXT.GOT0110 TMP .IT7* 

290 IFT=9PRINT35,"PLAYER #1 WINS" : . PRINT336, "DO YOU WISH TO PLAY AGAIN"; . INPUTZ* 

• Z*=LEFT*(Z*. 1 ) : IFZ*="Y"THENRUN100ELSEEND 

300 IFS=lF0RX-74T084sSET<X,44)sNEXT5F0RY=2BT043:SET<84,Y) 8 NEXTsG0T0110 

310 IFS=2F0RX=93T0103=SET(X,44) :NEXT:F0RY=28T043 J SET(93, Y) :NEXT:G0T0110 

320 lFS=3F0RX=82T095 S SET(X,24);SET(X,28) I NEXTzF0RY=25T027:SET<82,Y):SET<95,Y)iNE 

XT S SET(84,26):SET(93,26):FORY=10T023 S SET(88,Y)-.SET(89,Y) S NEXT S GOTOllO 

330 IFS=4F0RX*78Tt™;SET<X,9> S ^^ 
•SET(87,5):SET(90,5):SET(91,6)-.SET(86,6)SFORY=4T05 S SET<85 J Y) J SET(92,Y):NEXT.FORX 

TQ32: SET (77, Y> : SET (78, Y) : SET (79, Y) : NEXTj SET (78,33) .SET (78,29) : SET (76, 31 ). SET (SO, 

350 ! ItS6F^ 

NEXT:F0RY=30T032:SET(98,Y).SET(99,Y).SET<100,Y).NEXT.SET(99,33).SET(97,31)lSET(l 

01,31) :G0T0110 

360 IFS=7FORX=81T096 ! SET(X,ll):SET(X,13):NEXT i GaTOHO 

370 IFS=8F0RX-81T096:SET<X,16).SET(X,1B).SET(X,20).NEXT.G0TG110 mrm 

380 IFS=9PRINT336, "PLAYER #2 WINS" : : PRINT35, "DO YOU WISH TO PLAY AGAIN" ;-- INPUTZ* 

: Z*=LEFT*(Z*, 1) : IFZ*=" Y"THENRUN100ELSEEND 

390 END 

400 I FB*= " / " THEN450 

410 F0RN=1T0500:NEXT 

420 F0RE=FTOG: IFE=924THEN440ELSEPRINT5>E, " ";:NEXT 

430 F=F+64 : G=G+64 : G0T0420 

440 F=0:B=28sT=0:B*- ,, ":G0T0110 

450 F0RN=IT0500:NEXT 

460 FORH=MTOJ ■- I FH=959THEN480ELSEPRINT5>H, " " ; S NEXT 

470 M=t1+64: J=J+64sG0T0460 

480 M=32 ; J =63 1 S=0 s B*= " " : GOTO 1 1 



***** PHILATELIC ADVISOR LII/16K (c) John S. Richardson ***** 

Here is a program for those of our readers who are collectors or investors, specifically of 
stamps but the same principles could be applied to many other fields. 

fee IS e,' number of ™4s in the set and the 1980 catalogue value It aUo "Jgilrtes the 
annual compound growth rate, (not just the simple growth rate) of each stamp catalogue face 

Sir,. a^nTsort^t^rabooT J^V'hSE f V^ ?tZ \Z *£r Yft c r n 

!?- .^t^ 1 ^^ U" d est-U^atTlrTare ^ TS^^J^^^TZ 

300,000 of whom collect Australian decimal stamps. 



20 INPUT"PRESS 'NEW LINE' TO CONTINUE" ;C* 

30 RETURN 

40 CLEAR 10 

50 D=80sCLS 

60 N=106 .„, 

70 REM.N=NUMBER OF STAMP SETS TO END 'D 

80 T*= M ##.^»"*U*="##*.## H :V*="**##*.#* ,, 

90 DIMS*(N) S DIMS(N,7) = DIMT(N).DIME(N>sDIM6(N) STAMPS ** 

lOO PRINT3514,"** STAMPS ** STAMPS ** STAMPS »* STAMPS ** STAMPS 
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110 F0RX=lT0500slMEXT 

120 PRINT3208, "PHILATELIC ADVISOR" 

130 PRINTTAB<13)"AND COLLECTION E VALUATOR" 

140 PRINT:PRINTTAB(13)"AUSTRALIA - DECIMAL SETS" 

150 PRINTS776, "A PROGRAMME BY JOHN S RICHARDSON" 

160 F0RX=1T02000:NEXT XsCLS 

170 PRINT -THIS PROGRAMME ALLOWS THE USER TO REVIEW THE VALUE OF SETS OF 

AUSTRALIAN STAMPS, SINCE DECIMALISATION IN 1966. " 

180 PRINT-DATA IS CURRENTLY VALID FOR ALL ISSUES TO END '"D". H 

190 PRINT! PR I NT "CAT. VALUES REFER TO THE AUSTRALIAN STAMP CATALOGUE, 

"D+l "EDITION, PRINTED MID '"D". THE USER MAY ADD CURRENT VALUES 

TO OBTAIN UP-TO-DATE DATA ON RECENT GROWTH. " 

20O PR I NT: PR I NT "DATA HELD IS FOR j . RICHARDSON' S STAMP COLLECTION AT END ' "D 

210 PRINT"FOR RECORD AND VALUATION PURPOSES." 

220 PRINT! PRINT" IMPORTANT! ALL STAMPS MINT" 

230 PRINT 

240 60SUB20 

250 FORX=lTON 

260 READS <X,1) 

270 READS* (X) 

280 F0RY=2T06 

290 READS (X,Y) 

300 NEXTY 

310 NEXTX 

320 GOTO I960 

330 0NRG0T0340, 590, 104O, 1040, 1040, 1720 

340 CLSiPRINTTAB( 15) "REPORT NO. 1" 

350 PRINT! PRINT"THIS REPORT WILL PROVIDE DETAILS OF ALL AUSTRALIAN STAMP SETS 

SINCE DECIMALISATION." 

360 PRINT" IT WILL ALSO SHOW THE NUMBER OF SETS PURCHASED FOR THE 

COLLECTION AT END *"D". n 

370 PRINT"EACH SET WILL BE VALUED ACCORDING TO A.S.C."D+1", AND TOTALS 

WILL BE PRINTED. 

380 GOSUB20 

390 Z=0:TA=0!TB=0sTY=0:TX=0 

400 GOSUB960 

410 FORX=lTON 

420 TA=S(X,4)*S(X,5) 

430 TX=TX+TA 

440 TB=S(X,5)*S<X,6> 

450 TY=TY+TB 

460 PRINTS(X,1)TAB<5)S*<X)TAB<15)S<X,2); 

470 PRINTTAB(20)USINGT»;S<X,3); 

480 PRINTTAB<28)USIN6U«;S(X,4); 

490 PRINTTAB<38)S<X,5) J 

500 PRINTTAB(46>USINGU*;S<X,6) 

510 Z=Z+1 

520 IFZ=13THENGOSUB20 

530 IFZ=13THENG0SUB96O 

540 NEXT X 

550 PR INT: PR INT"TOTAL VALUE OF COLLECTION IS *"TX"AT CAT. PRICE" 

560 PR I NT "TOTAL COST OF COLLECTION WAS *"TY 

570 60SUB20 

580 GOTO I960 

590 CLS 

600 IFI=lGOTO750 

610 IFR>3 G0T0650 

620 PRINTTAB* 16) "REPORT NO. 2" t PRINT 

630 PR I NT "THIS REPORT LISTS ALL AUSTRALIAN STAMP SETS AT CURRENT VALUES 

AND PROVIDES DATA ON THE COLLECTION. TOTALS ARE PRINTED. " 

640 PRINT:F0R X=lTO5O0: NEXT 

650 PRINT"THIS REPORT UTILISES CURRENT VALUES. YOU WILL BE REQUIRED 

TO ENTER A VALUE FOR EACH STAMP SET." 

660 PRINT-PREPARE TO ENTER VALUES " 

670 FORX=lTON 

680 PRINT: PR I NT "ENTER CURRENT VALUE OF...»S(X,l) S*<X)" <"S<X,2)">. CAT": 

690 PRINTUSINGV*;S<X,4); 

700 INPUTS <X, 7) 

710 NEXTX 

720 1=1 

730 IFR=4G0T01080 

740 IFR=5G0T01080 

750 Z=0»TA=0iTB=0iTX=0iTY=0 

760 GOSUBIOOO 

770 FORX^ITON 

780 TA=S(X,5)*S(X,7> 
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790 TX=TX+TA 

800 TB=S(X,6)*S(X,5) 

810 TY=TY+TB 

820 PRINT S<X,1)TAB<5)S*(X)TAB(15)S(X,2) ; 

830 PRINTTAB < 19) USIN6T«;S<X, 3); 

840 PRINTTAB(26>USIN6U*:S(X,4); 

850 PRINTTAB (34) USINGU*: S<X, 7); 

860 PRINTTAB (43) S<X, 5); 

870 PRINTTAB (51) USINGU*; S(X, 6) 

880 2-1+1 

890 IFZ=13GOSUB20 

9O0 IFZ=13G0SUB1000 

910 NEXTX 

920 PR I NT sPRINT "TOTAL VALUE OF COLLECTION AT CURRENT VALUE IS *"TX 

930 PR I NT "TOTAL COST OF COLLECTION WAS *"TY 

940 G0SUB20 

960 CLS.-PRINTTAB(l) "YR"TAB(6) "DESC"TAB ( 15) »N0"TAB<20) "FACE*"TAB (28) "CAT*"TAB <35) 
"QTY P/D" TAB (46> "COST/SET" ^^ m 

970 PR I NT " 

980 Z=0 

990 RETURN 

1000 CLS: PRINTTAB ( 1 ) " YR"TAB (6) "DESCTAB ( 16) "N0"TAB(20) "FACE*"TAB (27) "CAT*"TAB<34 

) "CURR*"TAB (41 ) "QTY P/D "TAB (50) "COST /SET" ^ 

1 O 1 O PR I NT " 

1020 Z=0 

1030 RETURN 

1040 REM s RANKING REPORTS 

105O IFI=1G0T01080 

1060 IFR=4B0TO590 

107O IFR=560T0590 

1080 IFR=3GOTQ1130 

1090 IFR=4GOT01160 

llOO CLSs PRINTTAB (16) "REPORT NO. 5" 

lllO PR I NT SPRINT "THIS REPORT WILL RANK EACH STAMP SET IN SEQUENCE, BASED ON 

THE GROWTH IN ITS CURRENT VALUE, COMPARED TO CAT. VALUE. IT IS 

A GOOD GUIDE TO SHORT TERM, RECENT GROWTH." 

1120 GOTOH80 

1130 CLSs PRINTTAB (16) "REPORT NO. 3" „ AW « ™ 

1140 PR I NT: PR I NT "THIS REPORT WILL RANK EACH STAMP SET IN SEQUENCE, BASED ON 

ITS INCREASE IN VALUE PER ANNUM, CAT COMPARED TO FACE VALUE." 

1150 GOTO1180 

1160 CLSs PRINTTAB (16) "REPORT NO. 4" «*„-„ „„. 

1170 PR I NT sPRINT "THIS REPORT WILL RANK EACH STAMP SET IN SEQUENCE, BASED ON 

ITS INCREASE IN VALUE PER ANNUM, CURRENT COMPARED TO FACE VALUE." 

1180 PRINT:G0SUB20 

1190 CLSsPRINT3454,"HMMMMMMM.. LET ME THINK " 

1200 PRINT3582,"(THIS IS A COMPLEX CALCULATION - ALLOW UP TO 10 MINS. ) 

1210 FORX^ITON 

1220 G(X)=0 

1230 T(X)=D-S(X,1) 

1240 IFT(XK1THENT(X)=1 

1250 T(X)=1/T(X) 

1260 IFR-4THEN1290 

1270 IFR=5THEN1300 

1280 G(X)=(((S(X,4)/S(X,3))CT(X))-l)*100sG0T0 1310 

1290 G(X)=(((S(X,7)/S(X,3))CT(X))-l)*lOOsGOT0 1310 

1300 G(X)=((S(X,7)/S(X,4))-1)*100 

1310 G(X)-INT(G(X)*10)/10 

1320 NEXTX 

1330 G0SUB162O 

1340 GOSUB1500 

1350 FORX=lTON 

1360 Z=Z+1 

1370 PRINTXTAB(4)S(E(X) , 1 ) TAB (9> S* (E < X) >TAB< 19) S (E<X) ,2) ; 

1380 PRINTTAB(24)USINGT*;S<E<X),3)J 

1390 PRINTTAB (31 ) USINGU*; S (E (X ) , 4) ; 

1400 PRINTTAB (40) USINGU*; S (E (X ) , 7) ; 

1410 PRINTTAB(50)6(E(X) )TAB(59)S(E(X>,5) 

1420 IFZ<1260T01450 

1430 GOSUB20 

1440 GOSUB 1500 

1450 NEXTX 

1460 GOSUB20 

1470 INPUT"LIKE TO VIEW THIS DISPLAY AGAIN (Y/N)"|A* 

1480 IFA*="Y"TH£N1340 

1490 GOTO I960 
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1500 CLS:PRINT"RNK"TAB(5)"YR»TAB(9)"DESC"TAB<19)"N0»TAB(24>"FACE«»TAB(32)"CAT*"T 
AB<39) "CURR*"; 

1510 IF R=4 BOTO 1550 

1520 IF R=5 BOTO 1580 

1530 PR I NTT AB( 47) "CAT /FACE 7."TAB (59) "QTY" 

1540 G0T01590 

1550 PRINTTAB(46)"CURR/FACE 7." TAB (59) "QTY" 
1560 B0TO1590 
1570 RETURN 

1580 PRINTTAB(47) "CURR/CAT -/."TAB (59) "QTY " 
1590 Z=0 

1 600 PR I NT " „ 

1610 RETURN 

1620 A=0:B=0:P=0 

1630 FORA=lTON 

1640 P=l 

1650 F0RB=1TDN 

1660 IFG(AXG(B)THENP=P+1 

1670 IFG(A)-B<B)ANDA<BTHENP=P+1 

1680 NEXTB 

1690 E(P)=A 

1700 NEXTA 

1710 RETURN 

1720 A=66 

1730 B0SUB192O 

1740 FORX=lTON 

1750 IFS<X,1)=ATHEN1770 

1760 BOTO 1830 

1770 TA=TA+S<X,3) 

1780 TB=TB+S(X,4) 

1790 B=D-A 

1800 IFD-A=0THENB=1 

1810 TC=((TB/TA)C (1/B) )-l 

1820 TC=INT<TC*1000>/10 

1830 NEXTX 

1 840 PR I NTATAB < 1 ) TATAB < 20 ) TBTAB ( 30 ) TC 

1850 Z=Z+1 

1860 IFZ=13G0SUB20 

1870 IFZ=1360SUB1920 

18SO A=A+l:TA=0:TB=OsTC=0 

1890 IFA=D+1BOSUB20 

190O IFA=D+160T01960 

1910 SOT01740 

1920 CLS: PRINT TAB< 1) "YR"TAB< 10> "FACE*" TAB (20) "CAT*"TA8 (30) "BROWTH 7. P. fit." 

X 7\>M PRINT — -— — . . : ■ — — «.__ — — — __. ,-.— . — ..*. -— — -,.»■ ,. ii 

1940 Z=0 

1950 RETURN 

I960 CLS 

1970 PRINTTAB(20) "** MENU **" 

1980 PR I NT: PR I NT "YOU MAY SELECT FROM ONE OF THE FOLLOWING REPORTS-" 

1990 PRINT"!. COLLECTION VALUATION BY CAT. VALUE." 

2000 PRINT"2. COLLECTION VALUATION BY CURRENT VAL. NOTE A" 

2010 PRINT"3. RANKING, GROWTH P/A - CAT*/FACE*. 

2020 PR I NT" 4. RANKING, GROWTH P/A - CURR*/FACE*. NOTE A" 

2030 PRINT-5. RANKING, SHORT-TERM GROWTHS - CUR/CAT. NOTE A" 

2040 PR I NT "6. SUMMARY OF VALUES BY YEAR OF ISSUE." 

2050 PRINT:PRINT"NOTE A: ENTER CURRENT VALUES OF ALL STAMP SETS TO END '"D 

2060 PRINT: INPUT "ENTER REPORT NUMBER REQUIRED";R 

2070 IFR<10RR>8G0T02060 

2O80 G0T0330 

2090 DATA 66,QEii ,7, .28, 10.3, 1,4.8 

2100 DATA 66, QE COIL, 3, . 12, 3. 5, 1 , 1 . 9 

2110 DATA 66, BIRDS, 8, 1.38, 130.25,0,0 

2120 DATA 66,NAVS, 6, 8. 65, 243.5,0,0 

2130 DATA 66, FISH, 4,. 34, 34, 1,19.8 

2140 DATA 66, 4C COMM' S,3, . 12, 1 . 2, 4, . 6 

2150 DATA 67, 4C COMM' S, 5, . 20.2, 4, 1 

2160 DATA 67, 5C ON 4C, 1 , . 05, 1 . 75, 4, 1 . 25 

2170 DATA 67,xMAS,2,.3,9,4,5.7 

2180 DATA 68, WWW, 2, .25, 10.5,2,8 

2190 DATA 68, INTEL, 1,. 25,10,0,0 

2200 DATA 68, FLOWERS, 6, 1 . 09, 45. 75, O, O 

2210 DATA 68, SOIL/MED, 2, .1,1. 2, 4,. 4 

2220 DATA 68, OLYMPIC, 2, . 3, 8.5, O, O 

2230 DATA 68, 5C COMM' S, 3, . 15, 1 . 5, 4, . 6 

2240 DATA 68, FA'S 1,4, .2, 12, 0,0 

2250 DATA 69, 5C COMM' S, 3, . 15, 1 . 5, 4, . 6 
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2260 DATA 69, PRY IND, 4, .67, 35, O, 
2270 DATA 69, XMAS,2, . 3, 10.5,0,0 
2280 DATA 69,PM'S 1 , 4, . 2, 10,0,0 
2290 DATA 69, FLIGHT ST, 3, . 15, 15, O, 
2300 DATA 70, RAILWAY, 1 , .05, .5, 4, . 2 
2310 DATA 70, EXPO, 2,. 25, 6. 5, 0,0 
2320 DATA 70, ROYAL V, 2, . 35, 10. 5, 0, 
2330 DATA 70, GRASS, 1 , .05, .4,4, -2 
2340 DATA 70, COOK BIC, 6, . 55, 14, 0, O 
2350 DATA 70, COOK M/S, 1 , .55,20,0, O 
2360 DATA 70,FLR COIL, 6, . 34, 3. 9, 4, 2. 24 
2370 DATA 70, NAT DEV,4, .34, 13.6,0,0 
2380 DATA 70,6C COMM, 4, . 24, 2,4, .8 
2390 DATA 70, QANTAS, 2, . 36, 5. 5, 4, 3.8 
2400 DATA 70, FA' S, 4, . 24, 10, O, O 
2410 DATA 71, a'ASIA, 3,. 42, 16-5,0,0 
2420 DATA 71, 6C COMM' S, 4, . 24, 2, 4, . 8 
2430 DATA 71 , RSPCA, 4, . 62, 1 1 ,0,0 
2440 DATA 71, AB ART, 4, 1 . 1 , 5. 35, 0, 
2450 DATA 71, XMAS BLK,7, .49, 125, 0,0 
2460 DATA 72, 7C COMM' S, 3, . 21 , 1 . 5, 4, . 6 
2470 DATA 72, FA'S, 4, .28, 8,0, O 
2480 DATA 72,PRI IND, 4, 1. 1 , 68,0,0 
2490 DATA 72, REHAB, 3, .54,6, 1,3 
2500 DATA 72, OLYMPIC, 4, . 56, 12. 7, O, O 
2510 DATA 72, PIONEER, 7,2.6, 16.85,0,0 
2520 DATA 72, XMAS, 2, . 42, 18. 4, 1 , 16.25 
2530 DATA 73, METRIC, 4, .28, 14, 1 ,9.5 
2540 DATA 73, 7C COMM' S, 3, . 21 , 1 .5, 4, . 65 
2550 DATA 73, FA'S BLK, 4, . 2B, 18, 1 , 13.5 
2560 DATA 73, NAT DEV, 4, 1 . 1 ,52. 5, 1 , 30 
2570 DATA 73, MAR GEM, 9, . 5, 1 .8, 6, .5 
2580 DATA 73, XMAS, 2, . 37, 10. 6, 1 , 7.5 
2590 DATA 73, ARCH, 4, 1 .07, 15. 5, 1 , 10 
2600 DATA 74, ANIMALS, 4, 1 . 5,8. 15, 4,4.5 
2610 DATA 74, 7C COMM'S, 2, . 14, 1 . 2, 4, .5 
2620 DATA 74, PAINTING, 5, 22, 34, 2, 22 
2630 DATA 74, SPORTS, 7, . 49, 7, 1 , 3. 45 
2640 DATA 74, UPU, 2, . 37, 3. 7, 4, 2. 05 
2650 DATA 74, 9C SURCH, 1 , . 09, . 35, 1 , .25 
2660 DATA 74, XMAS, 2, . 45, 2. 4, 1 , 1 . 45 
2670 DATA 74,EDUCAT,4, . 91 ,6. 3, 1 ,5. 35 
2680 DATA 75, ENVIR' T,3, . 3, 3, 2,2.5 
2690 DATA 75, IWY, 1 , . 1 , .5, 4, .2 
2700 DATA 75, PM' S,6, .6,3.6, 1, 2. 25 
2710 DATA 75, SCIENCE, 4, 1.26, 10, 1,5 
2720 DATA 75, POST/TEL, 2, . 2, 3, 2, 2 
2730 DATA 75, FA'S, 6, .6,6, 1,5. 1 
2740 DATA 75, W/FLR5,2, .63, 1 .5, 4, . 73 
2750 DATA 75, PNG, 2, . 43, 2. 25, 4, 1. 7 
2760 DATA 75, XMAS, 2, . 6, 4, 1 , 2. 05 
2770 DATA 76, NAT' HD, 2, . 36, 2. 15, 2, 1 .3 
2780 DATA 76, 18C COMMS, 3, . 54, 1 - 5, 4, . 86 
2790 DATA 76, EXPLORE, 6, 1 . 08, 4.5, 1 , 2.35 
2800 DATA 76, OLYMPIC, 4, 1 . 01 , 2.95, 1, 1 .6 
2810 DATA 76, SCENES, 6, 2. 7, 6. 4, 5, 3. 94 
2820 DATA 76,S/WK M/S, 1 , . 72, 3, 1 , 2. 95 
2830 DATA 76, XMAS, 2, .6, 2, 4, 1 . 25 
2840 DATA 77, FA' S, 4, . 72, 2, 1 , 1 .2 
2850 DATA 77, P. ARTS, 4, 1 -5, 3-9, 4, 2.25 
2860 DATA 77, JUBILEE, 2, . 63, 2. 25, 4, 2.5 
2870 DATA 77, CRICKET, 6, 1 .35, 6.5, 1 , 4. 4 
2880 DATA 77, XMAS, 2, . 6, 1 . 35, 4, 1 . 12 
2890 DATA 78, 18C COMMS, 3, .54, 1 . 1 , 4, .86 
2900 DATA 78, AVIATORS, 4, .72, 1.6, 1, 1.4 
2910 DATA 78,AVIAT M/S, 1 , .72,2, 1, 1 -4 
2920 DATA 78, TREES, 4, 1 . 28, 5. 75, 1 , 4 
2930 DATA 78, BIRDS 1,5,1.35,2.70,4,1-35 
2940 DATA 78, S. WK, 1 , . 2, .4, 2, . 3 
2950 DATA 78,S.WK M/S, 4, . 8, 2, 1 , 1 .5 
2960 DATA 78, XMAS, 3, . 95, 3. 4, 1 , 2.05 
2970 DATA 78, HORSE R. , 4, 1 .6, 4. 15, 4, 2.65 
2980 DATA 79,20C COMMS, 3, .6, 1 . 2, 4, .6 
2990 DATA 79, FERRIES, 4, 1 . 6, 2.2, 4, 1 .6 
3000 DATA 79, LOCOS, 4, 1.6,2.2,4,1.6 
3010 DATA 79,N.PK,7, 1.4,3.4, 10, 1.94 
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3O20 DATA 79, BIRDS 2,6,1.28,2.6,4,1.28 
3030 DATA 79, FISHING, 4, 1 .6, 3.2, 4, 1.6 
3040 DATA 79, XMAS, 3, . 95, 2. 65, 22, . 97 
3050 DATA SO, A. DAY, 1 , . 2, . 4, 10, .2 
3060 DATA SO, DOGS, 5, 1 .85,3.7,33, 1 .85 
3070 DATA 80, BIRDS 3,9,3.98,7.5,4,3.98 
3080 DATA 80,22C COMMS, 2, . 44, . 9,8, .44 
3090 DATA SO, FOLKLORE, 5, 1 . 1 , 2.5, 23, 1 . 1 
310O DATA 80, WELFARE, 4,. 88,. 88, 7, .88 
3110 DATA 80,S.WK,5, 1.1, 1.1,7, 1.1 
3120 DATA 80,S.WK M/S, 1, . 66, .66, 7, .66 
3130 DATA SO, XMAS, 3,1.03,1.03,7,1.03 
3140 DATA SO, AIRCRAFT, 4, 1.67, 1.67,7, 1.67 
3150 END 



***** UNIVERSAL LOWER-CASE DRIVER ROUTINES by Edwin Paay ***** 

For some time now, we have been promising to publish a lower-case driver routine for those readers 
who have installed a lower-case modification in their '80's. Recently, as part of the development 
of MICR0-80's own lower-case modification, Eddy Paay developed a pair of universal driver routines. 
Last month we challenged you to guess how he did it - now read on and see if you were correct. 

When the TRS-80 was designed, no allowance was made for lower-case letters to be displayed on 
the screen. Soon the TRS-80 was put to use as a word processor and the fact that the machine 
doesn't display lower-case was a real disadvantage. After studying the circuits, it will be 
seen that it is a relatively simple task to provide the TRS-80 with the correct hardware to 
allow lower-case characters to appear on the display. 

The BASIC interpreter however, converts most lower-case characters to upper-case so they won't 
show up if they are typed from the keyboard. Therefore a lower-case driver routine to bypass 
a section of the interpreter is required. During development of the MICRO-80 lower-case kit 
I heard many complaints from people who bought lower-case kits from other sources. Most complaints 
arose from the fact that these routines would load into high memory, and consequently would 
clash with other high memory routines such as printer drivers and other utilities. Other complaints 
concerned incompatibility with disk systems. 

When this sort of routine has to be written, two possible directions can be taken: 

1. Take the easy way out and write a dozen different driver routines to suit different system 
configurations and memory sizes, then dump them all on a cassette tape for the user to sort 
out. 

2. Write a routine that suits all '80 systems irrespective of memory size or configuration. 

I thought it would be nice to aim for the latter and consequently had to set the following goals: 

(a) The routine must be fully relocatable. 

(b) It should not load into program RAM before relocation so it won't over-write anything. 

(c) It must be able to be used from Disk or Cassette. 

(d) Optionally, after initialization it must be possible to exit to DOS for a disk system or 
to BASIC for a cassette based system. This is because a disk machine would load the lower- 
case driver from disk before disk BASIC is called up and initialized, whereas a cassette 
system would load the driver routine from cassette using the BASIC command "SYSTEM" after 
which BASIC would have to be re-entered. 

(e) Let's throw in a flashing cursor and key-debounce for good measure. 

(f) A toggle function should be provided to allow the TRS-80 to behave as a standard typewriter 
with upper-case as shifted characters or in standard TRS-80 mode with lower-case as shifted 
characters. 

Item (a) means that only relative jumps can be used and not CALLS or absolute jumps which contain 
addresses in their instructions, unless the jump or CALL is common to all configurations. (b) 
was a tough one. I considered loading the routine into the I/O buffer area but there isn't 
much space and it might be over-written during keyboard input before it is relocated. Of course, 
it is possible to instruct the user to load the driver routine before anything else, which means 
that the routine can be loaded in high memory and then ask where it has to be relocated But 
many users are not aware of the actual addresses of other routines which may clash with the 
lower-case driver. Then, suddenly it struck me that, as part of the lower-case modification, 
a new RAM chip is added to the screen RAM, converting it to look like any other RAM in the system 
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This meant that I could load and execute a routine t*'':««"™Z! 

The^er^T^^^^ 

for Nation Finally, (c) and (d) are accomplished by holding down a key dun ng initi«li2- 
acion When the driver' routine has finished relocating itself it scans ^ keyboard to see 
If the SHIFT key is down. If so, DOS will be entered, otherwise control is passed to BASIC. 

PROGRAM DESCRIPTION. 

At the end of this article, there are two source listings, one is 'Straight dri ver rout , 
and tte other has key-debounce and a flashing «""*"*"•* "^ * %£,£ ^h'e area 
^AT^Z T^^o\^ e rZ I^ialifi n'routif HI 5 Awn "Tf 

interface, a cassette machine with expansion interface (this means mere ib c 

present but no disk drive) or a fully-fledged disk system. 1700 to 177 ^.^- ^^^tine 

pointers used by BASIC are altered to reflect the new memory size. The initialization routine 
is left in screen RAM and discarded after use. 

offending instructions which stop lower-case from being displayed have been removed. 

Finally, the keyboard is intercepted each , time it is ««^ tB ™* ^ ttT» ^VsTerfcontrol 
scans the keyboard If - .character js '-"J^'^nll £ .return the^.^ ^ 

coun^rlli^ - iTO) 6 "" ° „" f c urso fr o;o; / . if -0 | .ec r n % - %ayc c r er. 
TSS scanX E^ W.Tft Y.A S ^t £^1,^ IIS 



versa. 

ENTERING THE PROGRAMS. 



There are two versions of .the lower-case driver J^«££ J-TflSrt ng^ursor^rout ? ne 

^^Vrpec^is^e^^or^cl/rol 6 ^! LTM to DOS. Type SHIFT/«ro to 

toggle from typewriter mode to TRS-80 mode or back again. 

$5.00 plus 50c. p&p, or on disk, price $8.50 plus 50c. p&p. - Ed.) 



OOOIO 
00020 
00030 
O0O40 
00050 
OO06O 

00080 

0OO90 

00100 ORB 4020H 

001 lO DEFW 3E00H 

0012O ; 



A-**************************?*?** J 

* LOWERCASE DRIVER ROUTINE l.O * 

* FOR MICRO-80 LOWERCASE CONV. * 

* CREATED s 25/05/ 1981 * 
t B Y : E. R. PAAY * 

* FOR 5 MICRO-80 * 
********************************* 
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00130 




ORG 


3C40H 






00140 




i 








00150 


MEMS I Z 


EQU 


40B1H 






OO160 


KBVEC 


EQU 


4016H 






00170 


DISPLY 


EQU 


033AH 






00180 


BACKSP 


EOU 


0008H 






00190 


VIDVEC 


EQU 


401 EH 






00200 


VIDSW 


EQU 


401DH 






00210 


BASRDY 


EQU 


06CCH 






00220 


DOSRDY 


EQU 


402DH 






00230 


FDC 


EQU 


37ECH 






OO240 


DMEMSZ 


EQU 


4049H 






00250 


CURPOS 


EQU 


4020H 






00260 


SPOINT 


EQU 


40A0H 






00270 


SETPTR 


EQU 


1B6EH 






00280 


FLAG 


EQU 


4018H 






00290 
Y *»***' 


DEFM 


'*««** MICRO-80 LOWER 


CASE DRIVER VERS 1.0, (C) E. 


R- PAA 


00300 
IT ****' 


DEFM 


'**»* THE ROUTINE WILL 


NOW LOAD INTO SCREEN RAM, PLEASE WA 


00310 




DEFM 


' 






0032O 


LCDRV 


DEFW 









00330 




LD 


L, (IX+3) 






00340 




LD 


H, (IX+4) 






00350 




JP 


C,49AH 






0O360 




LD 


A, UX+5) 






00370 




OR 


A 






00380 




JR 


Z,BYPAS1 






00390 




LD 


(HL) ,A 






00400 


BYPAS1 


LD 


A,C 






00410 




CP 


20H 






00420 




JP 


C,506H 






00430 




CP 


SOH 






O044O 




JP 


NC,4A6H 






00450 


DONE 


JP 


47DH 






0046O 




JR 


DONE 






00470 


KBCHEK 


CALL 


3E3H 






O048O 




CP 


20H 






00490 




JR 


NZ, PROSES 






00500 




LD 


A, (3880H) 






00510 




AND 


1 






00520 




LD 


A,20H 






00530 




RET 


Z 






OO540 




LD 


A, (FLAG) 






00550 




CPL 








0056O 




LD 


(FLAG), A 






O0570 




XOR 


A 






00580 




RET 








00590 


PROSES 


LD 


C,A 






006O0 




LD 


A, (FLAG) 






00610 




OR 


A 






0O62O 




LD 


A,C 






0063O 




RET 


Z 






00640 




CP 


41H 






00650 




RET 


C 






00660 




CP 


80H 






00670 




RET 


NC 






00680 REDO 


BIT 


5, A 






00690 




JR 


Z, LCONV 






00700 




RES 


5, A 






00710 FTEST 


CP 


7BH 






00720 




JR 


NC,REDO 






00730 




RET 








00740 LCONV 


SET 


5, A 






00750 




JR 


FTEST 






00760 EIND 


DEFB 









00770 : 


[NIT 


LD 


HL, INIT 






00780 




LD 


DE, LCDRV 






00790 




OR 


A 






00800 




SBC 


HL,DE 






00810 




LD 


B,H 






00820 




LD 


C,L 






0O83O 




LD 


HL,EIND 






00840 




LD 


A, (38SOH) 
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OOB50 AND 

00860 JR 

00870 LD 

00880 JR 
00890 USEDMS LD 
O0900 BYPASO LDDR 

00910 EX 

00920 LD 

00930 LD 

00940 LD 

00950 INC 

0O960 LD 

00970 LD 

00980 LD 

00990 LD 

OlOOO LD 

OIOIO OR 

01020 SBC 

O103O ADD 

01O4O LD 

01 050 LD 

O106O LD 

01070 LD 

01080 LD 

01090 LD 

OllOO INC 

OHIO CP 

01120 JR 

01130 LD 

01140 AND 

01150 JP 
01160 BYPAS2 LD 

01170 OR 

01180 SBC 

01190 LD 

01200 CALL 

01210 XOR 

01220 LD 

01230 JP 

01240 END 



NZ, USEDMS 
DE, <MEMSIZ) 
BYPASO 
DE, (DMEMSZ) 



HL 
,HL 



:>,hl 



DE,HL 

(MEMSIZ), 

(DMEMSZ), 

SP,HL 

HL 

<VIDVEC),HL 

B,H 

C,L 

HL,KBCHEK 

DE,LCDRV 

A 

HL,DE 

HL,BC 

(KBVEC) 
H,B 
L,C 
DE,3E00H 

<CURPOS),DE 
A, <FDC) 

A 

2 

C,BYPAS2 

A, (38SOH) 

1 

NZ , DOSRDY 

DE,32H 

A 

HL,DE 
(SPOINT) ,HL 

SETPTR 

A 

< FLAG), A 

BASRDY 
INIT 



00010 

00020 

00030 

0004O 

00050 

0006O 

00080 

00090 

00100 

OOHO 

00120 

O0130 

00140 

00150 

00160 

00170 

00180 

O019O 

00200 

00210 

00220 

00230 

O024O 

00250 

00260 

00270 

00280 

00290 

OO300 

00310 



********************************* 
* LOWERCASE DRIVER ROUTINE l.OA * 
FOR MICRO-80 LOWERCASE CONV. * 
CREATED : 25/05/ 1981 * 

BY s E. R- PAAY * 

FOR : MICRO-SO * 

THIS ROUTINE HAS KEY-DEBOUNCE * 



********************************* 



MEMSIZ 

KBVEC 

VIDVEC 

BASRDY 

DOSRDY 

FDC 

DMEMSZ 

CURPOS 

SPOINT 

SETPTR 

FLAG 

COUNT 

DELAY 

CURSOR 

CURSOF 

MAXCNT 



ORG 
DEFW 

ORG 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 



4020H 
3E40H 

3C40H 

40B1H 

4016H 

401 EH 

06CCH 

402DH 

37ECH 

4049H 

4020H 

40A0H 

1B6EH 

4018H 

4019H 

006OH 

5FH 

20H 

400H 



ISSUE 18 (MAY 1981) 



MICRO-80 



PAGE 33 



00320 FLA61 

00330 

ME l.OA' 

00340 

IT ****' 

0O350 



00360 

00370 

00380 

00390 

OOAOO 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

0O580 

00590 

00600 

006 lO 

00620 

0063O 

0064O 

00650 

00660 

00670 

0068O 

00690 

007OO 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

OO840 

00850 

00860 

00870 

00880 

OO890 

00900 

00910 

00920 

00930 

00940 

00950 

00960 

00970 

0098O 

OO990 

01OOO 

01010 

01020 

01030 



LCDRV 



BYPAS1 



DONE. 
SETCUR 



RESCUR 



RESCNT 



FIXCNT 



CLRA 
KBCHEK 



DBOUNS 
LOOPO 

LOOP1 



EQU 
DEFM 

DEFM 

DEFM 

DEFW 

LD 

LD 

JP 

LD 

OR 

JR 

LD 

LD 

CP 

JP 

CP 

JP 
JP 

LD 

LD 

CP 

LD 

JR 

LD 

LD 

LD 

XOR 

PUSH 

JR 

PUSH 

XOR 

LD 

LD 

LD 

POP 

EXX 

CP 

JR 

LD 

AND 

LD 

JR 

LD 

CPL 

LD 

XOR 

RET 

CALL 

EXX 

OR 

JR 

LD 

LD 

OR 

LD 

JR 

DEC 

LD 

EXX 

RET 

EXX 

PUSH 

LD 

LD 

LD 

XOR 

OR 

EX 

AND 

EX 

INC 

RLC 



4022H 

'MICRO-80 COMBINED LOWERCASE DRIVER AND KEY DEBOUNCE ROUT I 

'**** THE ROUTINE WILL NOW LOAD INTO SCREEN RAM, PLEASE WA 

*** BY E.R.PAAY <C> MICRO-BO *«* 

O 

L, (IX+3) 
H, (IX+4) 
C,49AH 
A, (IX+5) 
A 

Z,BYPAS1 
(HL),A 
A,C 
20H 

C,506H 
80H 

NC,4A6H 
47DH 

HL, (CURPOS) 
A, (HL) 
CURSOF 
A,CURSOF 
NZ, RESCUR 
A, CURSOR 
(FLA61),A 
(HL),A 
A 
AF 

FIXCNT 
AF 
A 

(FLAG1),A 
HL,MAXCNT 
(COUNT) ,HL 
AF 

20H 

NZ, DBOUNS 

A, (3880H) 

1 

A,20H 

Z, DBOUNS 

A, (FLAG) 

(FLAG), A 
A 

3E3H 

A 

NZ, RESCNT 
HL, (COUNT) 
A,H 
L 

A,0 

Z, SETCUR 
HL 
(COUNT), HL 



AF 

B,7 

HL,3801H 

DE,4036H 

A 

(HL) 
DE,HL 

(HL) 
DE,HL 
DE 
L 
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O1040 




DJNZ 


LOOP1 




01050 




DR 


A 




01060 




JR 


NZ,LOOPO 




01070 




LD 


BC,500 




01080 




CALL 


DELAY 




01090 




POP 


AF 




01100 




EXX 






OHIO 




LD 


C,A 




01120 




LD 


A, (FLAG) 




01130 




OR 


A 




01140 




LD 


A,C 




01150 




RET 


Z 




01160 




CP 


41H 




OH70 




RET 


C 




01180 




CP 


80H 




01190 




RET 


NC 




01200 REDD 


BIT 


5, A 




01210 




JR 


Z , LCONV 




01220 




RES 


5, A 




01230 FTEST 


CP 


7BH 




01240 




JR 


NC,REDO 




01250 




RET 






0126O LCONV 


SET 


5, A 




01270 




JR 


FTEST 




01280 EIND 


DEFB 







O1290 INIT 


LD 


HL, INIT 




01300 




LD 


DE,LCDRV 




01310 




OR 


A 




01320 




SBC 


HL,DE 




01330 




LD 


B,H 




01340 




LD 


C,L 




01350 




LD 


HL P EIND 




01360 




LD 


A, (3880H) 




01370 




AND 


1 




01380 




JR 


NZ, USEDMS 




01390 




LD 


DE, (MEMSIZ) 




01400 




JR 


BYPASO 




01410 USEDMS 


LD 


DE, (DMEMSZ) 




01420 BYPASO 


LDDR 






01430 




EX 


DE,HL 




01440 




LD 


(MEMSIZ ),HL 




01450 




LD 


(DMEMSZ),HL 




01460 




LD 


SP,HL 




01470 




INC 


HL 




01480 




LD 


(VIDVEC),HL 




01490 




LD 


B,H 




01500 




LD 


CL 




01510 




LD 


HL,KBCHEK 




01520 




LD 


DE,LCDRV 




01530 




OR 


A 




01540 




SBC 


HL,DE 




01550 




ADD 


HL,BC 




01560 




LD 


(KBVEC),HL 




01570 




LD 


H,B 




01580 




LD 


L,C 




01590 




LD 


DE,3E40H 




01600 




LD 


<CURPOS),DE 




01610 




LD 


DE,MAXCNT 




01620 




LD 


< COUNT ),DE 




01630 




LD 


A, (FDC) 




01640 




INC 


A 




01650 




CP 


2 




01660 




JR 


C,BYPAS2 




01670 




LD 


A, (3880H) 




01680 




AND 


1 




01690 




JP 


NZ,DOSRDY 




01700 


BYPAS2 


LD 


DE,32H 




01710 




OR 


A 




01720 




SBC 


HL,DE 




01730 




LD 


(SPOINT),HL 




01740 




CALL 


SETPTR 




01750 




XOR 


A 




01760 




LD 


(FLA6),A 




01770 




JP 


BASRDY 




01780 




END 


INIT 





PAGE 34 



ISSUE 18 (MAY 1981) 



MICRO-80 



PAGE 35 



***** NEXT MONTH'S ISSUE ***** 

Next month's issue will contain at least the following programs plus the usual features and 
articles. 



** BREAKOUT - L1/4K ** 



** INTERCEPT - L1/4K ** 



A simulation of the arcade game. See how 
many inoffensive walls you can pulverise 
with fire balls. 



This is a Level 1 version of that populat 
Level 2 game SNAKE, which was published 
in our first issue and is featured on 
our free software cassette. 



** CHORD PRACTISE - LEVEL 2 ** 



** DOG RACE - LEVEL 2 ** 



Those music buffs amongst our readers can 
use this program to polish up their chord 
fingering. It was written by a doctor who 
lives in a small country town, who found 
that without access to a regular music teacher 
and having to learn to play an instrument 
from books, something like this program 
was needed. So he wrote it; now you can 
reap the benefit. 



It is said that Australians will gamble 
on two flies crawling up a wall, {which 
for our overseas readers' information 
is probably true), well, in this program 
you can bet on four Scottie dogs racing 
across the screen just for a change, and 
give those poor old flies a rest. 



SHARE CHARTING - LEVEL 2 



** PSYCHIC MASTER - LEVEL 2 ** 



This is a data handling program for the 
input of daily, weekly or monthly share 
information and could be used by a retailer 
to chart retail sales or virtually any other 
requirement for displaying percentage variation 
in data. 



This program was written to test the abilities 
of a person claiming to have psychic abilities. 
It will test for telepathy and clairvoyance 
and describes whether your results have 
been due to chance or true psychic abilities. 
Now that's a program I call really different! 
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The cassette edition of MICRO-80 contains all the software listed each month, on cassette. 
All cassette subscribers need do is CLOAD and RUN the programs. Level II BASIC programs are 
recorded on side 1 of the cassette. Level II machine language programs and Level I programs 
are recorded on side 2. All programs are recorded twice in succession. The rates for a cassette 
subscription are printed on the inside front cover of each issue of the magazine. 



SIDE 1 

BONES 

NORMAL DISTRIBUTION 
PHILATELIC ADVISER 
DISASSEMBLER 

SIDE 2 



L2/4K 
L2/4K 
L2/16K 
L2/16K 



I. P. 

B 

N 
P 
D 



CLOCK 


L2/m.l 


SYSTEM 
CLOCK 


LOWER-CASE DRIVER 


L2/m.l 


SYSTEM 
LCD 


LOWER-CASE DRIVER WITH 
DEBOUNCE 


L2/m.l 


SYSTEM 
LCDB 


SORT DEMONSTRATION 


L1/4K 


- 


ARITHMETIC 


L1/4K 


- 



APPROX. START POSITION 
CTR-41 CTR-80 SYS-80 



7 
39 


5 
26 


5 
26 


68 
81 


46 
55 


46 
55 


94 
167 


64 
113 


64 
113 


234 
302 


158 

204 


158 
204 


12 
22 


8 
15 


8 
15 


37 
49 


25 
33 


25 
33 


67 
79 


45 
53 


45 
53 


96 
119 


65 

80 


- 


148 
190 


100 
128 
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A SPECIAL OFFER! 



TO 
SUBSCRIBERS OF 





FOR THE FIRST TIME IN AUSTRALIA! 
GENUINE TANDY TRS-80 MICRO-COMPUTERS, 
HARDWARE AND SOFTWARE AT 

GREAT DISCOUNT PRICES!!! 



HOW TO ORDER - 

1. SELECT ITEMS FROM 1980 TANDY CATALOGUE 

2. DEDUCT 10% FROM ADVERTISED PRICES 

3. POST US YOUR ORDER STATING DESCRIPTION 
CAT. No AND A CHEQUE OR MONEY ORDER. 

WE WILL - 

1. ATTEND TO YOUR ORDER WITHIN 7 DAYS * 

2. SUPPLY GOODS SELECTED FREIGHT FREE ! 

3. SEND ADVERTISING REGULARLY TO KEEP 
YOU INFORMED OF CURRENT SPECIALS ! 

* subject to availability 




>4i 



to CONQUEST ELECTRONICS Pt y . Ltd. 
212 Katoomba St. KATOOMBA 2780 



Please supply — 

QTY. CAT NO DESC. 



ADV. PRICE 



SU8 TOTAL 
LESS 10% 
FIND CHEQUE FOR TOTAL 



SEND FREIGHT FREE TO 

NAME 

ADDRESS 



.P/Code 



CONOUHT ELECTRONS 



PTY. LTD. 



212 KATOOMBA ST KATOOMBA N.S.W. 2780 PHONE (047) 82 2491 




LEVEL II RO 
REFERENCE MANUAL 

by Edwin Paay 
Published by MICRO-80 PRODUCTS 

Written by Eddy Paay, the LEVEL II ROM REFERENCE MANUAL is the most 
complete explanation of the Level II BASIC interpreter ever published. 

Part 1 lists all the useful and usable ROM routines, describes their functions 
explains how to use them in your own machine language programs and notes the 
effect of each on the various Z 80 registers. 

Part 1 also details the contents of system RAM and shows you how to intercept 
BASIC routines as they pass through system RAM. With this knowledge, you can 
add your own commands to BASIC, for instance, or position BASIC programs in 
high memory— the only restriction is your own imagination! 

Part 2 gives detailed explanations of the processes used for arithmetical 
calculations logical operations, data movements, etc. It also describes the various 
formats used for BASIC, SYSTEM and EDITOR/ASSEMBLER tapes. Each section 
is illustrated by sample programs which show you how you can use the ROM 
routines to speed up your machine language programs and reduce the amount of 
code you need to write. 

The LEVEL II ROM REFERENCE MANUAL is intended to be used by machine 
language programmers. It assumes a basic understanding of the Z 80 instruction 
set and some experience of Assembly Language programming. But BASIC 
programmers too will benefit from reading it. They will gain a much better insight 
into the functioning of the interpreter which should help them to write faster, more 
concise BASIC programs. 



